subroutine date (str) character*9 str
date サブルーチンは、現在の日付を取得し、これを文字列 str に格納します。形式は dd-mmm-yy です。
dd は、2 桁の整数で表される該当月の日です。
mmm は、3 文字の省略名で表される月の名前 (Jan、Feb、Mar、Apr、May、Jun、Jul、Aug、Sep、Oct、Nov、Dec) です。
yy は、2 桁の整数で表される年です。
2000 年問題の警告: date() は 2000 年問題に対応していません。date は 2 桁の年を返すため、この問題を考慮せずに日付の比較に使用しないでください。ルーチン fdate(3F)、idate(3F)、および date_and_time(3F) は 4 桁の年を返すため、これを代わりに使用できます。
date は 2000 年問題に対応していないため、このルーチンを使用するプログラムでは、コンパイル時および実行時に警告メッセージが生成されます。
使用法:
character*9 str call date (str)
例:
demo% cat dat1.f * dat1.f -- Get the date as a character string. character c*9 call date ( c ) write (*, "(' The date today is: ', A9 )" ) c end demo% f77 dat1.f dat1.f: MAIN: "dat1.f", line 2: Warning: Subroutine "date" is not safe after year 2000; use "date_and_time" instead demo% a.out Computing time differences using the 2 digit year from subroutine date is not safe after year 2000. The date today is: 2-Oct-97 demo%
libfui.a
idate(3F)、ctime(3F)、fdate(3F)、date_and_time(3F)
FORTRAN 77 リファレンスマニュアル