用Fortran77打印图形？

Question

我试图通过创建一个2d字符数组在Fortran77中打印一个图形。X值是常数(文件中的行数)，用户将输入我的y值。我初始化了所有的值为空格，但我不确定如何用我的文件中的点(例如-1和100，2和200)填充2d数组，以及如何提示用户输入一个高度。有什么想法吗？

代码：

      SUBROUTINE PLOT(L,S)
      INTEGER*8 L
C S = the variable that the user gives for y length, user defined (not sure how to do yet)
      CHARACTER H(L,S)

C
C LOCAL VARIABLES
C
      INTEGER I

      DO 100 I=1, S
        H(I,I) = ' '
100 CONTINUE

      RETURN
      END

我的数据文件：

1     100
2     200
3     300
4     400
5     500

Answer 1

下面是一些基本的读和写：

要在名为data_in的文件中读取每一行中的N行和变量x、y、z：

open(unit=10,file='data_in',status='old')
do i=1,N
  read(10,*) x(i), y(i), z(i)
end do
close(10)

将变量x、y、z of N分别写入一个名为data_out的文件

open(unit=10,file='data_out',status='unknown')
do i=1,N
  write(10,*) x(i), y(i), z(i)
end do
close(10)

若要将x、y和z作为键盘输入(标准输入，*)，请事先询问用户：

do i=1,N
  write(*,*) 'Please input element number ', i, ' of variables x, y and z, respectively'
  read(*,*) x(i), y(i), z(i)
end do

在这三种情况下，read和write中的第一个选项是输入/输出单元，或者使用一个数字(在打开带有该标识符的文件后使用10 )的输入/输出单元带有星号*，该星号表示“标准输入/输出”，在本例中是终端提示。第二个选项--我在所有情况下都使用了星号* --提到了格式。*是“给定的”格式。