Parent Directory | Revision Log | Patch
revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC | revision 31 by guez, Thu Apr 1 14:59:19 2010 UTC | |
---|---|---|
# | Line 30 c======================================= | Line 30 c======================================= |
30 | c Arguments: | c Arguments: |
31 | c ---------- | c ---------- |
32 | integer mode | integer mode |
33 | REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm ) | REAL, intent(in):: pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm ) |
34 | REAL q( iip1,jjp1,llm,0:3) | REAL q( iip1,jjp1,llm,0:3) |
35 | REAL w( ip1jmp1,llm ) | REAL w( ip1jmp1,llm ) |
36 | REAL masse( iip1,jjp1,llm) | REAL masse( iip1,jjp1,llm) |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |