param.hpf

来自「shpf 1.9一个并行编译器」· HPF 代码 · 共 18 行

      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