设为首页收藏本站如何选择编译器？在线F77转F90 繁体浏览

切换到窄版开启辅助访问

Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › 动态的输出格式

返回列表发新帖

查看: 19671|回复: 8

上一主题

下一主题

[求助] 动态的输出格式

已解决

66 帖子	16 主题	0 精华

F 币: 452 元
贡献: 271 点

发消息

电梯直达

跳转到指定楼层

楼主

发表于 2016-5-17 13:11:16 | 只看该作者回帖奖励

回帖奖励

|倒序浏览 |阅读模式

Implicit None
Integer:: M,N,L,K,Size_temp,a,b,c,d
Real,ALLOCATABLE :: Temp_F(:,:),Temp_B(:,:)
Call Input_mesh(M,N,L,K)
Allocate(Temp_F(M,N),Temp_B(L,K))
Temp_F=22
Temp_B=22
write(*,300) ,((Temp_F(i,j),j=1,N),i=1,M)
Deallocate(Temp_F,Temp_B)
Call simulation_time()
200 Format(I5,I5,F7.1)
300 format(N//f5.1) 动态数组要输出N列数据，这个怎么解决呀，N是子程序传递过来的数据
End

分享到: 微信

收藏0 点赞0 点踩0

回复

使用道具举报

737 帖子	4 主题	0 精华

农村外出务工人员

F 币: 705 元
贡献: 361 点

发消息

沙发

发表于 2016-5-17 13:54:18 | 只看该作者

本帖最后由楚香饭于 2016-5-17 13:55 编辑

方法一： write(*,"(*(f5.1))") ,((Temp_F(i,j),j=1,N),i=1,M)

方法二：参考 http://fcode.cn/code_gen-63-1.html

回复支持反对

使用道具举报

66 帖子	16 主题	0 精华

F 币: 452 元
贡献: 271 点

发消息

板凳

楼主| 发表于 2016-5-17 14:36:49 | 只看该作者

'(<n>F5.1)' 好像这个比较好用谢谢啦我是IVF的平台那个大程序我还得看一看消化吸收一下和版主学了不少技巧谢谢啦

回复支持反对

使用道具举报

66 帖子	16 主题	0 精华

F 币: 452 元
贡献: 271 点

发消息

地板

楼主| 发表于 2016-5-17 14:37:48 | 只看该作者

楚香饭发表于 2016-5-17 13:54
方法一： write(*,"(*(f5.1))") ,((Temp_F(i,j),j=1,N),i=1,M)

方法二：参考 http://fcode.cn/code_gen-6 ...

'(<n>F5.1)' 好像这个比较好用谢谢啦我是IVF的平台那个大程序我还得看一看消化吸收一下和版主学了不少技巧谢谢啦

回复支持反对

使用道具举报

954 帖子	0 主题	0 精华

F 币: 184 元
贡献: 75 点

发消息

5^#

发表于 2016-5-18 07:58:06

来自移动端 | 只看该作者

星号最好，其次仿vf的，而尖括号由于不规范而建议别用

回复支持反对

使用道具举报

66 帖子	16 主题	0 精华

F 币: 452 元
贡献: 271 点

发消息

6^#

楼主| 发表于 2016-5-18 08:37:40 | 只看该作者

vvt 发表于 2016-5-18 07:58
星号最好，其次仿vf的，而尖括号由于不规范而建议别用

但是这个似乎这个不能进行行列分组呀，我试了好几次都没有成功

回复支持反对

使用道具举报

954 帖子	0 主题	0 精华

F 币: 184 元
贡献: 75 点

发消息

7^#

发表于 2016-5-18 09:40:09 | 只看该作者

write(*,300) ,((Temp_F(i,j),j=1,N),i=1,M)
改为
Do i = 1 , M
write(*,'(*(f5.1))') Temp_F(i,:)
End Do
这是比较标准的二维数组输出

回复支持反对

使用道具举报

66 帖子	16 主题	0 精华

F 币: 452 元
贡献: 271 点

发消息

8^#

楼主| 发表于 2016-5-18 11:06:05 | 只看该作者

vvt 发表于 2016-5-18 09:40
write(*,300) ,((Temp_F(i,j),j=1,N),i=1,M)
改为
Do i = 1 , M

谢谢高手呀

回复支持反对

使用道具举报

66 帖子	16 主题	0 精华

F 币: 452 元
贡献: 271 点

发消息

9^#

楼主| 发表于 2016-5-18 11:07:00 | 只看该作者

楚香饭发表于 2016-5-17 13:54
方法一： write(*,"(*(f5.1))") ,((Temp_F(i,j),j=1,N),i=1,M)

方法二：参考 http://fcode.cn/code_gen-6 ...

write(*,"(*(f5.1))") 开始没理解，还以为不对现在懂了谢谢

回复支持反对

使用道具举报

返回列表发新帖

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-25 09:24

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表