Fortran 基础输入输出

到目前为止，我们已经看到，我们可以分别使用 read* 语句从键盘读取数据，并使用 print* 语句将输出显示到屏幕上。这种形式的输入输出是自由格式的输入输出，它被称为列表导向的输入输出。

自由格式的简单 I/O 具有以下形式:

read(*,*) item1, item2, item3...
print *, item1, item2, item3
write(*,*) item1, item2, item3...

然而，格式化的 I/O 为您的数据传输提供了更大的灵活性。

格式化输入输出

格式化输入输出的语法如下:

• read fmt, variable_list
• print fmt, variable_list
• write fmt, variable_list

而且：

• fmt 是格式规范
• 变量列表是从键盘读取或在屏幕上写入的变量列表

格式规范定义了格式化数据的显示方式。它由一个字符串组成，括号中包含一系列编辑描述符。

编辑描述符指定显示字符和数字的确切格式，例如宽度、小数点后的数字等。

实例

Print "(f6.3)", pi

以下符号与格式描述符一起使用：

实例1

program printPi
   pi = 3.141592653589793238
   Print "(f6.3)", pi
   Print "(f10.7)", pi
   Print "(f20.15)", pi
   Print "(e16.4)", pi/100
end program printPi

结果如下：

3.142
3.1415927
3.141592741012573
0.3142E-01

实例2

program printName
implicit none
   character (len = 15) :: first_name
   print *,' Enter your first name.'
   print *,' Up to 20 characters, please'
   read *,first_name
   print "(1x,a)",first_name
end program printName

结果如下：

Enter your first name.
Up to 20 characters, please
Zara

实例3

program formattedPrint
implicit none
   real :: c = 1.2786456e-9, d = 0.1234567e3
   integer :: n = 300789, k = 45, i = 2
   character (len=15) :: str="Tutorials Point"
   print "(i6)", k
   print "(i6.3)", k
   print "(3i10)", n, k, i
   print "(i10,i3,i5)", n, k, i
   print "(a15)",str
   print "(f12.3)", d
   print "(e12.4)", c
   print '(/,3x,"n = ",i6, 3x, "d = ",f7.4)', n, d
end program formattedPrint

结果如下：

45
045
300789 45  2
300789 45  2
Tutorials Point
123.457
0.1279E-08
n = 300789 d = *******

Format 语句

format 语句让您可以在一个语句中混合和匹配字符、整数和实数输出。

program productDetails
implicit none
   character (len = 15) :: name
   integer :: id
   real :: weight
   name = 'Ardupilot'
   id = 1
   weight = 0.08
   print *,' The product details are'
   print 100
   100 format (7x,'Name:', 7x, 'Id:', 1x, 'Weight:')
   print 200, name, id, weight
   200 format(1x, a, 2x, i3, 2x, f5.2)
end program productDetails

结果如下：

The product details are
Name:       Id:    Weight:
Ardupilot   1       0.08