H A D | md_driver.F | 564 subroutine print_coord(rfile,n,c,t) argument 566 integer n,i,rfile local 575 write(rfile,9000) t(i),c(1,i)/cnv,c(2,i)/cnv,c(3,i)/cnv 618 subroutine punch (rfile,n,nsteps,step,dt,mass,c,v,a,b,d,t) argument 620 integer rfile,n,nsteps,step local 624 write(rfile,*) n,nsteps,step,dt,mass,c,v,a,b,d,t 627 subroutine read_punch(rfile,n,nsteps,step,dt,mass,c,v,a,b,d,t) argument 629 integer rfile,n,nsteps,step local
|