/***************************************************************************
                 module classe gcxx.h  -  description
***************************************************************************/
// Mohamed Berrada
// locean-ipsl.upmc, Paris, April 28, 2009
//===========================================================================
//                          methode forward
forward (YREAL x1)
{ 
  /* YS1  */
  /*     A 
	 R */ 
  if(Yt==TU){
     YS1=gcx_at_TU(Yi,Yj);
   //    YS1=0.;
  }
  else
#ifdef K_SOLSORYAO
   YS1=  x1;
#else
	       YS1=gcx(Yi,Yj);
#endif
  //
}

//===========================================================================
//                         methode  backward

backward (YREAL x)
{
#ifdef K_SOLSORYAO
  if(Yt==TU){
    YJ1I1=0;
   //    YS1=0.;
  }
  else
    //    YS1=gcx(Yi,Yj);
    YJ1I1=1;
  //
#endif
}


  //===========================================================================
//*************************  FIN DU MODULE gcxx   *************************