子函数writesp2 输入变量为time2,tt,ss,pp,k
subroutine writsp2(time2,tt,ss,pp,k)
指定各变量的维数
dimension time2(k),tt(201,k),ss(201,k),pp(201,k)
将各变量写入文件，格式按照第10行的格式，j=1,k表示j从1到k进行循环，增量为1
write(2,10) (time2(j),tt(1,j),tt(101,j),tt(201,j),j=1,k)
write(2,10)
和上面的语句相同，只是这是输出到屏幕
write(*,10) (time2(j),tt(1,j),tt(101,j),tt(201,j),j=1,k)
write(*,10)
输出格式，x表示空格，前面的数字表示空格的数量，fa.b是以a个字符宽来并表示浮点数，小数点后面的部分占b个字符宽，表示输出的实数的格式。下面的语句跟上面的一样
10 format(2x,f6.0,3x,f9.3,3x,f9.3,3x,f9.3)
write(2,20) (time2(j),ss(1,j),ss(101,j),ss(201,j),j=1,k)
write(2,20)
write(*,20) (time2(j),ss(1,j),ss(101,j),ss(201,j),j=1,k)
write(*,20)
20 format(2x,f6.0,3x,f9.4,3x,f9.4,3x,f9.4)
write(2,30) (time2(j),pp(1,j),pp(101,j),pp(201,j),j=1,k)
write(2,30)
write(*,30) (time2(j),pp(1,j),pp(101,j),pp(201,j),j=1,k)
write(*,30)
30 format(2x,f6.0,3x,f9.4,3x,f9.4,3x,f9.4)
return
end |
回复此楼