/[PAMELA software]/c3po/F77/rzfile.f
ViewVC logotype

Diff of /c3po/F77/rzfile.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 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    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23