输出问题

916115735

在程序中 一个量进行了900次的循环 想输出该值在每个节点坐标下 每隔10个循环的值想用write（*，*） COORDS(1),COORDS(2),COORDS(3),T1,T2,T3……
先给出xyz坐标，在通过10个循环为间隔 输出该值T1,T2,T3 ……  具体语句该怎么写 求指导

vvt

Do j = 1 , 900
  if(mod(j,10)==0) write(*,*) COORDS(1:3),T1,T2,T3
End Do

916115735

vvt 发表于 2021-5-31 19:05
Do j = 1 , 900
  if(mod(j,10)==0) write(*,*) COORDS(1:3),T1,T2,T3
End Do

一共是7744个节点的坐标 每隔10个循环输出一次该值 我的想法是建立一个7744*93的数组 怎么将其输出成Excel或者Txt格式

916115735

vvt 发表于 2021-5-31 19:05
Do j = 1 , 900
  if(mod(j,10)==0) write(*,*) COORDS(1:3),T1,T2,T3
End Do

IF(STATEV(10).GT.0.101326)THEN
        WRITE(*,*)COORDS(1)-115.5,COORDS(2),COORDS(3),TIME(1),STATEV(10)
          END IF
目前通过这样输出节点 xyz坐标 、 时间和压强值 ，但是想获得每隔十个循环的压强值（STATEV(10) 这样输出量太大 log文件无法读取 想直接输出txt格式