Parent Directory | Revision Log | Patch
revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC | revision 55 by guez, Mon Dec 12 13:25:01 2011 UTC | |
---|---|---|
# | Line 16 c | Line 16 c |
16 | use paramet_m | use paramet_m |
17 | IMPLICIT NONE | IMPLICIT NONE |
18 | c | c |
19 | INTEGER klevel | INTEGER, intent(in):: klevel |
20 | REAL pg( ip1jmp1,klevel ) | REAL pg( ip1jmp1,klevel ) |
21 | REAL pgx( ip1jmp1,klevel ) , pgy( ip1jm,klevel ) | REAL pgx( ip1jmp1,klevel ) , pgy( ip1jm,klevel ) |
22 | INTEGER l,ij | INTEGER l,ij |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |