Parent Directory | Revision Log | Patch
revision 1.18 by pam-fi, Fri Apr 27 10:39:58 2007 UTC | revision 1.19 by pam-fi, Mon May 14 11:03:06 2007 UTC | |
---|---|---|
# | Line 27 c$$$ debug = .true. | Line 27 c$$$ debug = .true. |
27 | c$$$ verbose = .true. | c$$$ verbose = .true. |
28 | c$$$ warning = .true. | c$$$ warning = .true. |
29 | ||
30 | * ////////////////////////// | |
31 | * initialize some parameters | |
32 | * ////////////////////////// | |
33 | ||
34 | call init_level1 | call init_level1 |
35 | ||
36 | if(debug)print*,'-- check LEVEL0 status' | if(debug)print*,'-- check LEVEL0 status' |
|
ViewVC Help | |
Powered by ViewVC 1.1.23 |