Parent Directory | Revision Log | Patch
revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC | revision 55 by guez, Mon Dec 12 13:25:01 2011 UTC | |
---|---|---|
# | Line 22 c | Line 22 c |
22 | c | c |
23 | c ............ variables en arguments .......... | c ............ variables en arguments .......... |
24 | c | c |
25 | INTEGER klevel | INTEGER, intent(in):: klevel |
26 | REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel ) | REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel ) |
27 | REAL cuvsga(ip1jm) , cvusga( ip1jmp1 ),unsaigam(ip1jmp1), | REAL cuvsga(ip1jm) , cvusga( ip1jmp1 ),unsaigam(ip1jmp1), |
28 | * unsapolnga, unsapolsga | * unsapolnga, unsapolsga |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |