!
! $Header$
!
!--------------------------------------------------------------
   REAL :: ripx
   REAL :: fx,fxprim,fy,fyprim,ri,rj,bigy
!
!....stretching in x...
!
  ripx(  ri )= (ri-1.0) *2.*pi/REAL(iim)
  fx  (  ri )= ripx(ri) + transx  + &
        alphax * SIN( ripx(ri)+transx-pxo ) - pi
  fxprim(ri) = 2.*pi/REAL(iim)  * &
        ( 1.+ alphax * COS( ripx(ri)+transx-pxo ) )

!....stretching in y...
!
  bigy(rj)   = 2.* (REAL(jjp1)-rj ) *pi/jjm
  fy(rj)     =  ( bigy(rj) + transy  + &
        alphay * SIN( bigy(rj)+transy-pyo ) ) /2.  - pi/2.
  fyprim(rj) = ( pi/jjm ) * ( 1.+ &
        alphay * COS( bigy(rj)+transy-pyo ) )

  ! fy(rj)= pyo-pisjjm*(rj-transy)+coefalpha*SIN(depisjm*(rj-
! *  transy ))
!   fyprim(rj)= pisjjm-pisjjm*coefy2* COS(depisjm*(rj-transy))
!--------------------------------------------------------------