!
! $Header$
!
!-----------------------------------------------------------------------
! INCLUDE 'fxyprim.h'
!
!    ................................................................
!    ................  Fonctions in line  ...........................
!    ................................................................
!
REAL :: fy, fx, fxprim, fyprim
REAL :: ri, rj
!
!
fy(rj)=ASIN(1.+2.*((1.-rj)/REAL(jjm)))
fyprim(rj)=1./SQRT((rj-1.)*(jjm+1.-rj))

fx    ( ri ) = 2.*pi/REAL(iim) * ( ri - 0.5*  REAL(iim) - 1. )
! fx    ( ri ) = 2.*pi/REAL(iim) * ( ri - 0.5* ( REAL(iim) + 1.) )
fxprim( ri ) = 2.*pi/REAL(iim)
!
!
!    La valeur de pi est passee par le common/const/ou /const2/ .
!    Sinon, il faut la calculer avant d'appeler ces fonctions .
!
!   ----------------------------------------------------------------
! Fonctions a changer eventuellement, selon x(x) et y(y) choisis .
!   -----------------------------------------------------------------
!
!    .....  ici, on a l'application particuliere suivante   ........
!
!            **************************************
!            **     x = 2. * pi/iim *  X         **
!            **     y =      pi/jjm *  Y         **
!            **************************************
!
!   ..................................................................
!   ..................................................................
!
!
!
!-----------------------------------------------------------------------