dateclock.f

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

* Note: this file should NOT be compiled with -qextname 
* (otherwise it will not link with system's routines).
* If want to link it with other Fortran modules compiled
* with -qextname, redefine NDATE to be NDATE_ and NCLOCK
* to be NCLOCK_.
      CHARACTER*8 FUNCTION NDATE()
 
******** RETURNS THE CURRENT DATE IN THE FORMAT YY/MM/DD
******** THIS ROUTINE IS OPERATING SYSTEM-DEPENDENT.
 
*        AIX VERSION (MAY WORK WITH OTHERS SYSTEM V OR BSD)
      INTEGER SINCE_EPOCH,TM(9)
      POINTER (TMADDR,TM)
      CHARACTER*8 CHABUF
      I1 = TIME(SINCE_EPOCH)
*        TMADDR IS THE ADDRESS OF A 9-ELEMENTS INTEGER ARRAY
      TMADDR = LOCALTIME(SINCE_EPOCH)
*        NOW TM=(SECS 0-59,MIN 0-59,HOURS 0-23,DAY 1-31,MONTH 0-11,
*                YEAR-1900, WEEK SUN=0, DAYOFYEAR 0-365, NONZERO
*                IF DAYLIGHT SAVINGS TIME)
      WRITE(CHABUF,'(I2.2,A1,I2.2,A1,I2.2)')
     $     TM(6),'/',TM(5)+1,'/',TM(4)
      NDATE = CHABUF
      RETURN
      END
 
      CHARACTER*8 FUNCTION NCLOCK()
 
******** RETURNS THE CURRENT TIME IN THE FORMAT 'HH.MM.SS'
******** THIS ROUTINE IS OPERATING SYSTEM-DEPENDENT.
 
*        AIX VERSION (MAY WORK WITH OTHERS SYSTEM V OR BSD)
      INTEGER SINCE_EPOCH,TM(9)
      POINTER (TMADDR,TM)
      CHARACTER*8 CHABUF
      I1 = TIME(SINCE_EPOCH)
*        TMADDR IS THE ADDRESS OF A 9-ELEMENTS INTEGER ARRAY
      TMADDR = LOCALTIME(SINCE_EPOCH)
*        NOW TM=(SECS 0-59,MIN 0-59,HOURS 0-23,DAY 1-31,MONTH 0-11,
*                YEAR-1900, WEEK SUN=0, DAYOFYEAR 0-365, NONZERO
*                IF DAYLIGHT SAVINGS TIME)
      WRITE(CHABUF,'(I2.2,A1,I2.2,A1,I2.2)')
     $     TM(3),'.',TM(2),'.',TM(1)
      NCLOCK = CHABUF
      RETURN
      END