Parent Directory
| 
Revision Log
| 
Patch
| revision 1.1.1.1 by pam-fi, Fri Jul 21 11:32:02 2006 UTC | revision 1.3 by mocchiut, Fri Jul 21 15:46:13 2006 UTC | |
|---|---|---|
| # | Line 7 C | Line 7 C |
| 7 | INCLUDE './common/common_level2.f' | INCLUDE './common/common_level2.f' |
| 8 | C | C |
| 9 | parameter (lun=1) | parameter (lun=1) |
| 10 | parameter (mem=4096) | C parameter (mem=4096) |
| 11 | parameter (mem=6144) | |
| 12 | integer istat | integer istat |
| 13 | C | C |
| 14 | runntp = 1 | runntp = 1 |
| # | Line 21 C | Line 22 C |
| 22 | orbntp = 9 | orbntp = 9 |
| 23 | C | C |
| 24 | CALL HLIMIT(10000000) | CALL HLIMIT(10000000) |
| c Iquest(10) = 256000 | ||
| 25 | Iquest(10) = 512000 | Iquest(10) = 512000 |
| 26 | C | C |
| 27 | call HROPEN(lun,'LEVEL2',path,'NP',mem,istat) | call HROPEN(lun,'LEVEL2',path,'NPQE',mem,istat) |
| 28 | if(istat.ne.0) print*,' ERROR file: ',path, | if(istat.ne.0) print*,' ERROR file: ',path, |
| 29 | & ' not open' | & ' not open' |
| 30 |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.23 |