/[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.2 by pam-fi, Fri Jul 21 15:02:55 2006 UTC
# Line 21  C Line 21  C
21        orbntp  = 9        orbntp  = 9
22  C  C
23        CALL HLIMIT(10000000)        CALL HLIMIT(10000000)
 c      Iquest(10) = 256000  
24        Iquest(10) = 512000        Iquest(10) = 512000
25  C  C
26        call HROPEN(lun,'LEVEL2',path,'NP',mem,istat)        call HROPEN(lun,'LEVEL2',path,'NPQ',mem,istat)
27        if(istat.ne.0) print*,' ERROR file: ',path,        if(istat.ne.0) print*,' ERROR file: ',path,
28       &     '   not open'       &     '   not open'
29    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23