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