Parent Directory | Revision Log | Patch
revision 1.11 by pam-fi, Mon Feb 19 16:28:39 2007 UTC | revision 1.12 by pam-fi, Thu Mar 15 12:17:10 2007 UTC | |
---|---|---|
# | Line 56 c parameter (inf=1.e8) !just a | Line 56 c parameter (inf=1.e8) !just a |
56 | ||
57 | c$$$ PFA='ETA' | c$$$ PFA='ETA' |
58 | c$$$ DEBUG=.true. | c$$$ DEBUG=.true. |
59 | c$$$ DEBUG=.false. | |
60 | ||
61 | if(DEBUG)PRINT*,'P.F.A. --> ',fin,PFA | if(DEBUG)PRINT*,'P.F.A. --> ',fin,PFA |
62 |
|
ViewVC Help | |
Powered by ViewVC 1.1.23 |