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

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

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操作部分。举个例子：    open(unit=1, file='example.txt', status='replace', action='readwrite', iostat=errorLevel)
    do i = 1, size(SJ, 1)
      write(1, *) SJ(i, :)
    end do
页: [1]
查看完整版本: 怎么将二维数组输出成TXT格式