param.hpf

shpf 1.9一个并行编译器

      SUBROUTINE PARAM (NW1, NSTEP, NEQUIL, IPRINT,
     $                  EQTEMP, DENS, RCUT, DT)

      INTEGER NW1, NSTEP, NEQUIL, IPRINT, ISCALE

      DOUBLE PRECISION  EQTEMP, DENS, RCUT, DT


      WRITE(NW1,*)'     NUMBER OF STEPS           ',NSTEP
      WRITE(NW1,*)'     NUMBER OF EQUIL STEPS     ',NEQUIL
      WRITE(NW1,*)'     OUTPUT FREQUENCY          ',IPRINT
      WRITE(NW1,*)'     TEMPERATURE               ',EQTEMP
      WRITE(NW1,*)'     DENSITY                   ',DENS
      WRITE(NW1,*)'     POTENTIAL CUTOFF          ',RCUT
      WRITE(NW1,*)'     TIMESTEP                  ',DT

      END