[524] | 1 | ! |
---|
| 2 | ! $Header$ |
---|
| 3 | ! |
---|
[5246] | 4 | !----------------------------------------------------------------------- |
---|
| 5 | ! INCLUDE 'fxyprim.h' |
---|
| 6 | ! |
---|
| 7 | ! ................................................................ |
---|
| 8 | ! ................ Fonctions in line ........................... |
---|
| 9 | ! ................................................................ |
---|
| 10 | ! |
---|
| 11 | REAL :: fy, fx, fxprim, fyprim |
---|
| 12 | REAL :: ri, rj |
---|
| 13 | ! |
---|
| 14 | ! |
---|
| 15 | fy ( rj ) = pi/REAL(jjm) * ( 0.5 * REAL(jjm) + 1. - rj ) |
---|
| 16 | fyprim( rj ) = pi/REAL(jjm) |
---|
[524] | 17 | |
---|
[5246] | 18 | ! fy(rj)=ASIN(1.+2.*((1.-rj)/REAL(jjm))) |
---|
| 19 | ! fyprim(rj)=1./SQRT((rj-1.)*(jjm+1.-rj)) |
---|
[524] | 20 | |
---|
[5246] | 21 | fx ( ri ) = 2.*pi/REAL(iim) * ( ri - 0.5* REAL(iim) - 1. ) |
---|
| 22 | ! fx ( ri ) = 2.*pi/REAL(iim) * ( ri - 0.5* ( REAL(iim) + 1.) ) |
---|
| 23 | fxprim( ri ) = 2.*pi/REAL(iim) |
---|
| 24 | ! |
---|
| 25 | ! |
---|
| 26 | ! La valeur de pi est passee par le common/const/ou /const2/ . |
---|
| 27 | ! Sinon, il faut la calculer avant d'appeler ces fonctions . |
---|
| 28 | ! |
---|
| 29 | ! ---------------------------------------------------------------- |
---|
| 30 | ! Fonctions a changer eventuellement, selon x(x) et y(y) choisis . |
---|
| 31 | ! ----------------------------------------------------------------- |
---|
| 32 | ! |
---|
| 33 | ! ..... ici, on a l'application particuliere suivante ........ |
---|
| 34 | ! |
---|
| 35 | ! ************************************** |
---|
| 36 | ! ** x = 2. * pi/iim * X ** |
---|
| 37 | ! ** y = pi/jjm * Y ** |
---|
| 38 | ! ************************************** |
---|
| 39 | ! |
---|
| 40 | ! .................................................................. |
---|
| 41 | ! .................................................................. |
---|
| 42 | ! |
---|
| 43 | ! |
---|
| 44 | ! |
---|
| 45 | !----------------------------------------------------------------------- |
---|