如何在Fortran 77中使用此代码？

这个问题正是我想弄明白的。我不在Mac电脑上，所以我不知道他们是怎么让它工作的。我在用电脑

我不明白如何修改此脚本以使其适用于我的文件。脚本可用

---

与拥有链接相比，重要的是在问题本身中拥有所有相关信息（尽管与另一个问题的链接很好）。我们应该能够回答您的问题，而无需访问外部来源。您还应该发布一些示例数据，以便人们可以在这些数据上测试运行您的程序。我想我还可以补充一点：您发布的片段不是Fortran 77（或任何Fortran），因此，请注意您提供/复制的内容。我无法发布示例数据，因为我无法打开文件。我猜一个样本就是一个不同整数的网格或矩阵。我不明白它怎么不是fortran？do和enddo不是fortran命令吗？对不起，我完全迷路了。请不要绕过帖子限制。系统不允许没有xxx的链接有很好的理由。所有重要信息（完整代码、样本数据）应以文本形式出现在问题内。

    - Read header (size= pixel size *2byte):
character head*14400

read(10,rec=1) head
read(head,'(2i6,2f8.2,f8.4,2e12.5,a1,a8,a1,a40)') 
     & npixel,nline,lon_min,lat_max,reso,slope,offset,',',
     & para,',',outfile

 - Read data (e.g., fortran77)
parameter(nl=7200, ml=3601)
... open file by "unformatted", "recl=nl*2(byte)" (,"bytereclen")

integer*2 i2buf(nl,ml)
do m=1,ml
 read(10,rec=1+m) (i2buf(n,m), n=1,nl)
 do n=1,nl
   par=i2buf(n,m)*slope+offset
   write(6,*) 'PAR[Ein/m^2/day]=',par
 enddo
enddo