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 28 c ------------------------------------ | Line 28 c ------------------------------------ |
28 | c | c |
29 | c .......... variables en arguments ................... | c .......... variables en arguments ................... |
30 | c | c |
31 | INTEGER klevel | INTEGER, intent(in):: klevel |
32 | REAL x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel ) | REAL x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel ) |
33 | REAL cuvscvgam(ip1jm),cvuscugam(ip1jmp1),unsairegam(ip1jmp1) | REAL cuvscvgam(ip1jm),cvuscugam(ip1jmp1),unsairegam(ip1jmp1) |
34 | REAL unsapolnga,unsapolsga | REAL unsapolnga,unsapolsga |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |