Parent Directory | Revision Log | Patch
revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC | revision 26 by guez, Tue Mar 9 15:27:15 2010 UTC | |
---|---|---|
# | Line 18 c | Line 18 c |
18 | use dimens_m | use dimens_m |
19 | use paramet_m | use paramet_m |
20 | use logic | use logic |
21 | use inidissip_m | |
22 | IMPLICIT NONE | IMPLICIT NONE |
23 | c | c |
24 | c | c |
include "comdissipn.h" | ||
25 | c | c |
26 | INTEGER klevel | INTEGER klevel |
27 | REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel ) | REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel ) |
# | Line 29 c | Line 29 c |
29 | c | c |
30 | REAL rot(ip1jm,llm) | REAL rot(ip1jm,llm) |
31 | ||
32 | INTEGER l,ij,iter,lr | INTEGER l,ij,iter |
33 | integer, intent(in):: lr | |
34 | c | c |
35 | c | c |
36 | c | c |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |