1.4.5 chdir ：更改缺省目录

该函数的调用方式如下所示：

另请参见： chdir (2)、 cd (1) 和 gerror (3F)，了解有关错误代码的信息。

路径名长度不能超过 <sys/param.h> 中定义的 MAXPATHLEN 值。路径可以是相对路径，也可以是绝对路径。

使用该函数可能会导致按单元查询失败。

某些 Fortran 文件操作会按文件名重新打开文件。执行 I/O 操作时使用 chdir 可能会导致运行时系统不能跟踪使用相对路径名创建的文件。（包括使用打开语句创建但没有文件名的文件）。

1.4.6 chmod ：更改文件的模式

该函数的调用方式如下所示：

另请参见： chmod (1) 和 gerror (3F)，了解有关错误代码的信息。

路径名长度不能超过 <sys/param.h> 中定义的 MAXPATHLEN 值。路径可以是相对路径，也可以是绝对路径。

1.4.7 date ：获取以字符串表示的当前日期

由于该例程只返回两位数值的年份，因此它存在“2000 年安全”问题。在 1999 年 12 月 31 日之后，使用该例程输出计算日期差异的程序可能无法正常工作。如果执行使用此 date() 例程的程序，第一次调用该例程时会显示运行时警告消息，向用户发出报警。请参见另一个可换用的例程 date_and_time() 。

该子例程的调用方式如下所示：

返回的字符串 c 的格式为 dd-mmm-yy ，其中 dd 表示两位数的当月日期， mmm 表示三个字母的月份缩写， yy 表示两位数的年份（因此存在 2000 年安全问题！）。

示例： date ：

另请参见 idate() 和 date_and_time() 。

1.4.7.1 date_and_time ：获取日期和时间

这是一个 2000 年安全的 Fortran 95 内例程。

子例程 date_and_time 返回实时时钟和日期的相关数据。返回数据包括本地时间以及本地时间与通用协调时间 (Universal Coordinated Time, UTC) 之间的时差，通用协调时间也称为格林威治标准时间 (Greenwich Mean Time, GMT)。

子例程 date_and_time() 的调用方式如下：

2000 年 2 月 16 日在美国加利福尼亚的一台计算机上运行该例程时，输出结果如下所示：

1.4.8 dtime 和 etime ：已用的执行时间

这两个函数的返回值都是已用时间（如果为 -1.0，表示出现错误）。返回的时间以秒数表示。

缺省情况下，Fortran 95 使用的 dtime 和 etime 版本使用系统的低精度时钟。该精度是百分之一秒。但是，如果在 Sun OS ^TM 操作系统实用程序 ptime (1) ( /usr/proc/bin/ptime) 下运行程序，则使用高精度时钟。

1.4.8.1 dtime ：自上次调用 dtime 后已用时间

对于 dtime ，已用时间为：

第一次调用：自开始执行后已用时间

demo% cat tdtime.f
       real e, dtime, t(2)
       print *, ’elapsed:’, e, ’, user:’, t(1), ’, sys:’, t(2)
       do i = 1, 10000
        k=k+1
       end do
       e = dtime( t )
       print *, ’elapsed:’, e, ’, user:’, t(1), ’, sys:’, t(2)
demo% f95 tdtime.f
demo% a.out
elapsed: 0.0E+0 , user: 0.0E+0 , sys: 0.0E+0
 elapsed: 0.03 , user: 0.01 , sys: 0.02
demo%

1.4.8.2 etime ：自开始执行后已用时间

对于 etime ，已用时间为：

单处理器执行 － 调用进程的 CPU 时间

demo% cat tetime.f
       real e, etime, t(2)
       e = etime(t)         !  Startup etime - do not use result
       do i = 1, 10000
        k=k+1
       end do
       e = etime( t )
       print *, ’elapsed:’, e, ’, user:’, t(1), ’, sys:’, t(2)
demo% f95 tetime.f
demo% a.out
elapsed: 0.02 , user: 0.01 , sys: 0.01
demo%

另请参见 times (2) 和《 Fortran 编程指南 》。

1.4.9 exit ：终止进程并设置状态

该子例程的调用方式如下所示：

执行 C 函数 exit 时，可能会在系统最终 ' exit ' 之前执行清除操作。

调用 exit 时不使用参数会导致出现编译时警告消息，并自动将零作为参数。另请参见： exit (2)、 fork (2)、 fork (3F)、 wait (2) 和 wait (3F)。

1.4.10 fdate ：返回以 ASCII 字符串表示的日期和时间

该子例程或函数的调用方式如下所示：

另请参见 fclose (3S)。

1.4.12 fork ：创建当前进程的副本

该函数的调用方式如下所示：

为了避免外部文件中的 I/O 缓冲区内容重复，在执行 fork 操作之前，会刷新所有已开放供写入的逻辑单元。

示例： fork() ：

目前尚未提供对应的 exec 例程，这是因为没有一种令人满意的方法能够在整个 exec 例程中保持开放的逻辑单元。但是，可以使用 system (3F) 执行 fork/exec 的常用函数。另请参见： fork (2)、 wait (3F)、 kill (3F)、 system (3F) 和 perror (3F)。

1.4.13 fseek 和 ftell ：确定文件的位置和复位文件

1.4.13.1 fseek ：将文件复位到逻辑单元中

该函数的调用方式如下所示：

对于后续文件，在调用 fseek 后面执行输出操作（例如 WRITE ）会导致 fseek 位置后面的所有数据记录被删除，并替换为新的数据记录（以及文件结束标记）。只有在使用直接访问文件时，才能将记录重新写入到位。

示例： fseek() －将 MyFile 复位到距开头两个字节处