在CentOS上进行Fortran文件操作,需结合系统命令与Fortran语法,核心操作如下:
打开/关闭文件
OPEN(UNIT=编号, FILE='文件名', STATUS='状态', ACTION='操作类型')
STATUS:'old'(已存在)、'new'(新建)、'replace'(覆盖)、'scratch'(临时文件)。ACTION:'read'(读)、'write'(写)、'readwrite'(读写)。CLOSE(编号)。读写文件
READ(编号, 格式说明符) 变量,如READ(10, '(I5)') n(读取整数)。WRITE(编号, 格式说明符) 数据,如WRITE(20, '(F8.2)') x(写入浮点数)。OPEN(..., FORM='unformatted', ACCESS='stream'),然后WRITE(编号) 数据。OPEN(..., FORM='unformatted', ACCESS='stream'),然后READ(编号) 数据。文件查询与状态管理
INQUIRE(FILE='文件名', EXIST=变量)。INQUIRE(FILE='文件名', SIZE=变量)。REWIND(编号)(回到开头)、BACKSPACE(编号)(回退一行)。STATUS='old'和POSITION='append',再使用WRITE写入。OPEN、READ、WRITE后检查IOSTAT(错误码)和IOMSG(错误信息)。'(A, I5, F10.3)'(字符串+整数+浮点数)。ls查看文件、cp复制文件、rm删除文件,与Fortran操作结合使用。chmod修改文件权限,确保Fortran程序可读写文件。文本文件读写:
! 写入文本文件
OPEN(10, FILE='data.txt', STATUS='replace', ACTION='write')
WRITE(10, '(A)') 'Hello, CentOS!'
CLOSE(10)
! 读取文本文件
OPEN(10, FILE='data.txt', STATUS='old', ACTION='read')
READ(10, '(A)') line
PRINT *, line
CLOSE(10)
二进制文件读写:
! 写入二进制文件
REAL :: data(3) = [1.0, 2.0, 3.0]
OPEN(20, FILE='data.bin', FORM='unformatted', ACTION='write')
WRITE(20) data
CLOSE(20)
! 读取二进制文件
OPEN(20, FILE='data.bin', FORM='unformatted', ACTION='read')
READ(20) data
PRINT *, data
CLOSE(20)
sudo yum install gcc-gfortran # 安装GCC的Fortran编译器
echo 'export PATH=/usr/local/bin:$PATH' >> ~/.bashrc
echo 'export LD_LIBRARY_PATH=/usr/local/lib:$LD_LIBRARY_PATH' >> ~/.bashrc
source ~/.bashrc
通过以上方法,可在CentOS上高效完成Fortran文件的读写、查询及管理操作。