该子例程或函数的调用方式如下所示:
call fdate( string ) |
||
string |
character*24 |
输出 |
或者:
CHARACTER fdate*24 string = fdate() |
如果用作函数,调用例程必须定义 fdate 的类型和大小。 |
||
返回值 |
character*24 |
输出 |
示例 1:fdate 用作子例程:
character*24 string call fdate( string ) write(*,*) string end |
输出:
Wed Aug 3 15:30:23 1994 |
示例 2:fdate 用作函数,输出相同:
character*24 fdate write(*,*) fdate() end |
另请参见:ctime(3)、time(3F) 和 idate(3F)。