23 |
c ...... variables en arguments ....... |
c ...... variables en arguments ....... |
24 |
c |
c |
25 |
INTEGER klevel |
INTEGER klevel |
26 |
REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel ) |
REAL, intent(in):: xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel ) |
27 |
REAL grx( ip1jmp1,klevel ), gry( ip1jm,klevel ) |
REAL grx( ip1jmp1,klevel ), gry( ip1jm,klevel ) |
28 |
real, intent(in):: crot |
real, intent(in):: crot |
29 |
c |
c |
39 |
signe = (-1.)**lr |
signe = (-1.)**lr |
40 |
nugradrs = signe * crot |
nugradrs = signe * crot |
41 |
c |
c |
42 |
CALL SCOPY ( ip1jmp1* klevel, xcov, 1, grx, 1 ) |
grx = xcov |
43 |
CALL SCOPY ( ip1jm * klevel, ycov, 1, gry, 1 ) |
gry = ycov |
44 |
c |
c |
45 |
CALL rotatf ( klevel, grx, gry, rot ) |
CALL rotatf ( klevel, grx, gry, rot ) |
46 |
c |
c |