二进制文件转为十进制

whuwjx

[Fortran] 纯文本查看 复制代码

DO j=1,m
  DO K=1,n
    DO l=1,p
         READ(1,rec=1) (rain(j,k,l))
    END DO
  END DO
END DO

修改为
read(1,rec=1)  (((rain(j,k,l),j=1,m),i=1,n),t=1,p)