Parent Directory
|
Revision Log
|
Patch
trunk/libf/dyn3d/diverg_gam.f revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC | trunk/dyn3d/diverg_gam.f revision 76 by guez, Fri Nov 15 18:45:49 2013 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 |