Fortran Coder

标题: 输出问题 [打印本页]

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

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

作者: 916115735 时间: 2021-5-31 19:27

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 时间: 2021-5-31 20:40

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格式

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)