/***************************************************************************
                 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
    //    YS1=gcx(Yi,Yj);
               YS1=  x1;
  //
}

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

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


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