program main implicit none integer*4 iconf(1000) integer*4 jerz(20), jver(20) integer*4 iv(20),ie(20), . ivsave(20),iesave(20) character*4 girep integer*4, allocatable ::lconf(:,:) integer*4, allocatable ::lstart(:) integer*4, allocatable ::iconf1(:,:) integer*4, allocatable ::iconf2(:,:) integer*4, allocatable ::i1off(:,:) integer*4, allocatable ::i2off(:,:) integer*4, allocatable ::i1ix(:) integer*4, allocatable ::i1ex(:) integer*4, allocatable ::i2iix1(:) integer*4, allocatable ::i2iix2(:) integer*4, allocatable ::i2iex1(:) integer*4, allocatable ::i2iex2(:) integer*4, allocatable ::i2eex1(:) integer*4, allocatable ::i2eex2(:) integer*4, allocatable :: mat(:) ,merz(:,:) ,mver(:,:) integer irefold(73),i,j integer*8 matall,matclast,matcalc integer*4 i1i,i1e,i2ie,i2ii,idum,imem,ierr integer*4 momax,MEMMB,NCONF,INTS2EEMAX,INTS2IEMAX integer*4 INTS2IIMAX,INTS1EMAX,INTS1IMAX integer*4 INT2,INT1,I2EE,INT0 matall = 0 nconf=8477 open(unit=2,file='Hc.info.ag',form='unformatted') read(2) idum read(2) int0 read(2) (irefold(i),i=1,int0) read(2) momax read(2) i2ii allocate(i2iix1(i2ii),i2iix2(i2ii),stat=ierr) if (ierr.ne.0) stop 'Allocation failed for creators in cinew' read(2)(i2iix1(i),i=1,i2ii) read(2)(i2iix2(i),i=1,i2ii) print *, '1' read(2) i2ie allocate(i2iex1(i2ie),i2iex2(i2ie),stat=ierr) if (ierr.ne.0) stop 'Allocation failed for creators in cinew' read(2)(i2iex1(i),i=1,i2ie) read(2)(i2iex2(i),i=1,i2ie) print *, '2' read(2) i1i allocate(i1ix(i1i),stat=ierr) if (ierr.ne.0) stop 'Allocation failed for creators in cinew' read(2)(i1ix(i),i=1,i1i) print *, '3' read(2) i1e allocate(i1ex(i1e),stat=ierr) if (ierr.ne.0) stop 'Allocation failed for creators in cinew' read(2)(i1ex(i),i=1,i1e) print *, '4' read(2) i2ee allocate(i2eex1(i2ee),i2eex2(i2ee),stat=ierr) if (ierr.ne.0) stop 'Allocation failed for creators in cinew' read(2)(i2eex1(i),i=1,i2ee) read(2)(i2eex2(i),i=1,i2ee) print *, '5' read(2) int1 allocate(iconf1(2,int1),stat=ierr) if (ierr.ne.0) stop 'Allocation failed for iconf1' print *, '6' read(2) ((iconf1(i,j),i=1,2),j=1,int1) read(2) int2 allocate(iconf2(3,int2),stat=ierr) if (ierr.ne.0) stop 'Allocation failed for iconf2' print *, '7' read(2) ((iconf2(i,j),i=1,3),j=1,int2) allocate(i1off(0:int1,2),stat=ierr) if (ierr.ne.0) stop 'Allocation failed for i1off' read(2)(i1off(i,1),i=0,int1) read(2)(i1off(i,2),i=0,int1) print *, '8' allocate(i2off(0:int2,3),stat=ierr) if (ierr.ne.0) stop 'Allocation failed for i2off' read(2)(i2off(i,1),i=0,int2) read(2)(i2off(i,2),i=0,int2) read(2)(i2off(i,3),i=0,int2) read(2) ints1imax,ints1emax,ints2iimax,ints2iemax,ints2eemax print *, '9' allocate(lstart(nconf+1),stat=ierr) if (ierr.ne.0) stop'Allocation failed for lstart in mrci' imem = imem + 4 * ( nconf + 1 ) print *, '10', nconf+1 read(2)(lstart(i),i=1,nconf+1) print *, '11' close(2) end