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 19 c | Line 19 c |
19 | use dimens_m | use dimens_m |
20 | use paramet_m | use paramet_m |
21 | use logic | use logic |
22 | use comdissipn | use inidissip_m |
23 | IMPLICIT NONE | IMPLICIT NONE |
24 | c | c |
25 | ||
# | Line 30 c | Line 30 c |
30 | ||
31 | REAL div(ip1jmp1,llm) | REAL div(ip1jmp1,llm) |
32 | ||
33 | INTEGER l,ij,iter,ld | INTEGER l,ij,iter |
34 | integer, intent(in):: ld | |
35 | c | c |
36 | c | c |
37 | c | c |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |