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 15 c | Line 15 c |
15 | use dimens_m | use dimens_m |
16 | use paramet_m | use paramet_m |
17 | use comgeom | use comgeom |
18 | use comdissipn | use inidissip_m |
19 | IMPLICIT NONE | IMPLICIT NONE |
20 | c | c |
21 | ||
# | Line 28 c | Line 28 c |
28 | c ....... variables locales .......... | c ....... variables locales .......... |
29 | c | c |
30 | REAL signe, nudivgrs, sqrtps( ip1jmp1,llm ) | REAL signe, nudivgrs, sqrtps( ip1jmp1,llm ) |
31 | INTEGER l,ij,iter,lh | INTEGER l,ij,iter |
32 | integer, intent(in):: lh | |
33 | c ................................................................... | c ................................................................... |
34 | ||
35 | c | c |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |