1 subroutine argos_prop_rdrest(lfn,fil) 2c 3 implicit none 4c 5#include "argos_prop.fh" 6c 7 integer lfn 8 character*255 fil 9c 10 character*18 string 11 integer i 12c 13 if(me.ne.0) return 14c 15 open(unit=lfn,file=fil(1:index(fil,' ')-1), 16 + status='old',form='formatted',err=9999) 17 rewind(lfn) 18c 19 1 continue 20 read(lfn,1000,end=9998) string 21 1000 format(a18) 22 if(string.ne.'restart properties') goto 1 23c 24 read(lfn,1001) maxp,nsum,nsumt 25 1001 format(3i7) 26 read(lfn,1002) tsum,t2sum,tsumt,t2sumt 27 1002 format(4e20.12) 28 read(lfn,1003) (psum(i),i=1,maxp) 29 read(lfn,1003) (p2sum(i),i=1,maxp) 30 read(lfn,1003) (pslop(i),i=1,maxp) 31 read(lfn,1003) (psumt(i),i=1,maxp) 32 read(lfn,1003) (p2sumt(i),i=1,maxp) 33 read(lfn,1003) (pslopt(i),i=1,maxp) 34 1003 format(4e20.12) 35c 36 return 37 9998 continue 38 call md_abort 39 + ('Unable to read restart file in argos_prop_rdrest ',me) 40 return 41 9999 continue 42 call md_abort 43 + ('Unable to open restart file in argos_prop_rdrest ',me) 44 return 45 end 46c $Id$ 47