second.f

来自「一个有用的分子动力学小辅助程序」· F 代码 · 共 10 行

      DOUBLE PRECISION FUNCTION SECOND()
 
******** RETURNS THE ELAPSED CPU TIME, IN SECONDS.
******** THIS ROUTINE IS OPERATING SYSTEM-DEPENDENT.
 
*        AIX VERSION
      SECOND = 0.01D0*MCLOCK()
      RETURN
      END