Parent Directory | Revision Log | Patch
revision 25 by guez, Fri Mar 5 16:43:45 2010 UTC | revision 26 by guez, Tue Mar 9 15:27:15 2010 UTC | |
---|---|---|
# | Line 6 | Line 6 |
6 | use paramet_m | use paramet_m |
7 | use logic | use logic |
8 | use comgeom | use comgeom |
9 | use comdissipn | use inidissip_m |
10 | IMPLICIT NONE | IMPLICIT NONE |
11 | c | c |
12 | c======================================================================= | c======================================================================= |
# | Line 30 c | Line 30 c |
30 | c | c |
31 | REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm) | REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm) |
32 | ||
33 | INTEGER l,ij,iter,lh | INTEGER l,ij,iter |
34 | integer, intent(in):: lh | |
35 | c | c |
36 | c | c |
37 | c | c |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |