Parent Directory | Revision Log | Patch
revision 64 by guez, Wed Aug 29 14:47:17 2012 UTC | revision 65 by guez, Thu Sep 20 09:57:03 2012 UTC | |
---|---|---|
# | Line 21 c | Line 21 c |
21 | c | c |
22 | c ..... variables en arguments ...... | c ..... variables en arguments ...... |
23 | c | c |
24 | INTEGER klevel | INTEGER, intent(in):: klevel |
25 | REAL rot( ip1jm,klevel ) | REAL rot( ip1jm,klevel ) |
26 | REAL x( ip1jmp1,klevel ), y( ip1jm,klevel ) | REAL, intent(in):: x( ip1jmp1,klevel ), y( ip1jm,klevel ) |
27 | c | c |
28 | c ... variables locales ... | c ... variables locales ... |
29 | c | c |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |