FORTRAN 77 简单输入/输出

Question

我是 FORTRAN 新手，必须编写一个 FORTRAN 77 程序来从文件重定向或标准输入读取以下格式：

[CHARACTER] [REAL] [REAL] [REAL] ... (can have any number of these)
D [INTEGER] (only one of these)
[REAL] [REAL] [REAL] ... (can have any number of these)

示例输入可以是：

T 1.0 2.0 3.0
S 1.0 2.0 4.0
Y 3.0 4.0 5.0
D 2
3.0 5.0 6.0
4.5 4.6 5.6

我的母语语言是 C++，所以我不熟悉读取语句自动转到下一行的整个想法。

到目前为止，我有以下代码：

c234567
      character*1 D
      character*1 LETTER
      real X, Y, Z
      integer lines
      real point1, point2, point3


 85格式（3F10.6）
100 格式（A1、5X、F10.6、5X、F10.6、4X、F10.6）
990 格式 (A, I10)

      MAX = 6
      LETTER = 'Z'
      D = 'D'

      read *, LETTER, X, Y, Z


 10 if(LETTER .ne. D) then
           写 (6, 100) 字母、X、Y、Z
           读取 *、字母、X、Y、Z
           转到10
        别的 
           转到20
        正如

C =====================================================
20      lines = aint(X)
        write (*,990) 'LINES: ', lines
        write (6, 85) X, Y, Z
        read *, Z
        write (6, 85) X, Y, Z
        end

你所看到的，我得到了输入的第一部分，但之后由于读取语句：read*, Z 进入下一行，一切都变得混乱。在上面提供的特定输入文件中，我在 D 之后得到 2，以及接下来的两个值（3.0、5.0），但我跳过 6.0

任何帮助都会很棒。谢谢。

Answer 1

如果您知道您的行永远不会超过最大长度，我建议阅读整行，然后根据您的规则解析该行。

使用最大行长度为 1024 个字符的示例：

       CHARACTER*1024 line
       CHARACTER letter
100    FORMAT (A)
       READ(*,100) line
       READ(line, *) letter
       IF (letter .eq. 'T') THEN
          ...
       END IF

也许此技术适合您。

Answer 2

我什至没有看过你的代码，但我会建议这样的策略

(1) read the initial character of the line
if not "D" then 
    read reals
    store the line
    loop to (1)
else
    read one integer
    store the line
    break
endif
read lines of reals until end-of-file

我的 fortran 非常生锈，但我相信有一些结构可以帮助你解决这个问题。当然，READ 的 END 修饰符对于最后一点很有帮助。

---

经过一番实验，我发现 gfortran 似乎支持旧的尾随 $ 用于非高级输入约定和 advance='不'。然而，g77却没有。我无法与任何其他编译器交谈——据我所知，直到 fortran 90 引入 advance='no' 之前，这从未标准化。

演示代码可以在 gfortran 中运行，但不能在 g77 中运行，

      program temp
c234567
      character a
      integer i
      real x, y, z, w(50)

c This or with (*,'(A1 $)')
      read (*,'(A1)',advance='no') a

      if (a .eq. 'D') then
         read (*,*) i
         write (*,*) a, i
      endif

      end

如果您的编译器支持非高级输入，这应该足以使增量策略起作用。不知何故。

另一种方法是将字母加上该行的其余部分读入一个大字符缓冲区，然后沿着以下行单独解析缓冲区

      character a, buf(1024)
      read (*,'(a1, a1024)') a, buf
      if (a .eq. d) then
         read (buf,*) i
      endif