怎么将二维数组输出成TXT格式

916115735 · 发表于 2021-6-8 12:46:44

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

SJ(7744,93)
DO i1=1,7744,1
           DO j=4,93,1
               DO i2=0,900,10
                   IF (i1==NOEL)THEN
                       SJ(i1,1)=COORDS(1)-115.5
                       SJ(i1,2)=COORDS(2)
                       SJ(i1,3)=COORDS(3)
                    ENDIF   
                       IF (i2==TIME(1))THEN
                         SJ(i1,j)=STATEV(10)
               ENDIF
           ENDDO
       ENDDO
      ENDDO

通过建立二维数组保存数据怎么将该数组输出成txt格式文件或者dat格式文件呢？

SolaProject · 发表于 2021-6-9 02:03:24

。。。open一个新文件，然后向文件内按照你希望的形式输入数组的值即可，具体参考Fortran的I/O操作部分。举个例子：

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

    open(unit=1, file='example.txt', status='replace', action='readwrite', iostat=errorLevel)
    do i = 1, size(SJ, 1)
        write(1, *) SJ(i, :)
    end do

[文件读写] 怎么将二维数组输出成TXT格式