2 real prec,time,potE,uconst,t_bath,qfrag(100)
3 integer ihpb(100),jhpb(100),iset
11 call xdrfopen_(ixdrf,arg, "r", iret)
14 call xdrffloat_(ixdrf, time, iret)
16 call xdrffloat_(ixdrf, potE, iret)
17 call xdrffloat_(ixdrf, uconst, iret)
18 call xdrffloat_(ixdrf, t_bath, iret)
19 call xdrfint_(ixdrf, nss, iret)
21 call xdrfint_(ixdrf, ihpb(j), iret)
22 call xdrfint_(ixdrf, jhpb(j), iret)
24 call xdrfint_(ixdrf, nfrag, iret)
25 call xdrfint_(ixdrf, iset, iret)
27 call xdrffloat_(ixdrf, qfrag(i), iret)
32 call xdrf3dfcoord_(ixdrf, coord, isize, prec, iret)
34 call xdrfopen(ixdrf,arg, "r", iret)
37 call xdrffloat(ixdrf, time, iret)
39 call xdrffloat(ixdrf, potE, iret)
40 call xdrffloat(ixdrf, uconst, iret)
41 call xdrffloat(ixdrf, t_bath, iret)
42 call xdrfint(ixdrf, nss, iret)
44 call xdrfint(ixdrf, ihpb(j), iret)
45 call xdrfint(ixdrf, jhpb(j), iret)
47 call xdrfint(ixdrf, nfrag, iret)
48 call xdrfint(ixdrf, iset, iret)
50 call xdrffloat(ixdrf, qfrag(i), iret)
55 call xdrf3dfcoord(ixdrf, coord, isize, prec, iret)
58 write (*,'(e15.8,2e15.5,f12.5,$)') time,potE,uconst,t_bath
59 write (*,'(i4,$)') nss,(ihpb(j),jhpb(j),j=1,nss)
61 write (*,'(i4,20f7.4)') nfrag,(qfrag(i),i=1,nfrag)
62 write (*,'(8f10.5)') ((coord(k,j),k=1,3),j=1,isize)