1、关于codeblocks IDE的极速安装请参考百度经验<<Windows下极速搭建fortran开发环境>>
4、接下来介绍fortran编程中怎么处理【定义文件头类型】先定义一种类型 !================================ ! 数据文件头类型 !================================ TYPE GridFileHead INTEGER::ncols INTEGER::nrows REAL*8::xllcorner REAL*8::yllcorner REAL*8::cellsize END TYPE
6、【读文件】编写子程序读取栅格数据到二维浮点双精度数组 !================================ ! 读取网格数据到二维浮点双精度数组 !================================ SUBROUTINE readGridFileToDoubleArray2D(FilePath, arrDouble2D) IMPLICIT NONE CHARACTER(Len=*), INTENT(IN) :: FilePath INTEGER,TARGET,INTENT(OUT) :: arrDouble2D(:,:) INTEGER::i OPEN(FileTmp,FILE=FilePath,STATUS='OLD') !跳过开头6行 DO i=1,6 READ(FileTmp,*) END DO DO i=1,GridHead%nrows READ(FileTmp,*), arrDouble2D(i,1:GridHead%ncols) END DO CLOSE(FileTmp) END SUBROUTINE readGridFileToDoubleArray2D
