Parent Directory | Revision Log | Patch
revision 64 by guez, Wed Feb 27 13:16:39 2008 UTC | revision 65 by guez, Thu Sep 20 09:57:03 2012 UTC | |
---|---|---|
# | Line 16 c | Line 16 c |
16 | use comgeom | use comgeom |
17 | IMPLICIT NONE | IMPLICIT NONE |
18 | c | c |
19 | INTEGER klevel | INTEGER, intent(in):: klevel |
20 | REAL rot( ip1jm,klevel ),x( ip1jmp1,klevel ),y(ip1jm,klevel ) | REAL rot( ip1jm,klevel ),x( ip1jmp1,klevel ),y(ip1jm,klevel ) |
21 | INTEGER l,ij | INTEGER l,ij |
22 | c | c |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |