我是利用

write(17,300) (r2is(i,j,k),i=1,imax)

300 FORMAT (107E15.6)    !107为imax值

来达到目的的!!!!!

但最后发现,对imax值较小时(目前验证为107)是可行的,但为165时就不行了,照样可以运行和输出,但另一个读取这个输出的软件(软件应该没问题)出错。这和Fortran 90/95标准中规定,当程序代码中的一行超过132个字符时,需要用&续行有关吗?

我修改如下(但编译说无法终止):

if(imax.le.132)then

do k=1,kmax

do j=1,jmax

write(17,300) (r2is(i,j,k),i=1,imax)

300 FORMAT (165E15.6)   !HERE, 107=imax for alter row per imax

enddo

enddo

close(17)

else

do k=1,kmax

do j=1,jmax

write(17,400) (r2is(i,j,k),i=1,130)

400 FORMAT (130E15.6)

write(17,500)'&'

500 FORMAT (A1)

write(17,600) (r2is(i,j,k),i=131,imax)

600 FORMAT (39E15.6)  ! imax-130

enddo

enddo

close(17)

这里两个问题:

1)是Fortran 90/95标准中规定132列造成的问题吗?

2)如果是,下面的程序哪点有问题?

谢谢各位兄弟了,

matlab输入数组换行,三维数组换行输入到文件(intel fortran 编译器) - 程序语言 - 小木虫 - 学术 科研 互动社区...相关推荐

  1. c语言调用dll实例 结构体传参,Matlab调用Dll,对于自定义结构体数组如何传参? - 程序语言 - 小木虫 - 学术 科研 互动社区...

    %[例子1] % Matlab调用DLL,整形数组传参 v = [1,22,33;44,-56,67]; pv = libpointer('int16Ptr',v); m = get(pv,'Valu ...

  2. matlab风力机叶片仿真教程,我用matlab编写了一个风力机叶片的优化设计程序,有点问题 - 程序语言 - 小木虫 - 学术 科研 互动社区...

    主程序 clear; global r; global R; global phi; global lamb; V1=7;P=400;lamb0=6;B=3; D=2.5; R=D/2; N=60*l ...

  3. matlab 摄氏度符号怎么打,【求助】弱弱的问下,Matlab如何在公式中输入希腊字母? - 程序语言 - 小木虫 - 学术 科研 互动社区...

    很多时候都要在matlab画图的时候添加一些公式符号之类的,有一些特殊的字符并不能直接从键盘上输入,比如希腊字母等等.但是有想用,因为这样使图看起来漂亮而且容易理解. 例如:我想输入摄氏度的符号,怎么 ...

  4. matlab二重指针,VC++中函数返回数组指针或者带指针的结构体的编译方式是否可取? - 程序语言 - 小木虫 - 学术 科研 互动社区...

    libralibra 构造函数+析构函数应该是比较正规的做法吧, 你的结构体/类被提早释放的问题,是不是那个结构体是局部变量,当超出作用域时对象被销毁,如果存在析构函数,会被默认调用, 如果你返回结构 ...

  5. 三维曲面matlab程序,用matlab画三维曲面图 - 程序语言 - 小木虫 - 学术 科研 互动社区...

    数据直接贴出来了 1000        150.4        173 1000        132        172.9 1000        120        171 1000  ...

  6. matlab中并行用不了,请教matlab在linux下的并行问题 - 程序语言 - 小木虫 - 学术 科研 互动社区...

    刚在网上搜了一下,matlabpool open local 8 设置节点数,但是必须在matlab下面才行,比如我打开linux, >>matlab 进入matlab系统,然后matla ...

  7. matlab读取超大txt文件,fortran如何读取超大文本文件 - 程序语言 - 小木虫 - 学术 科研 互动社区...

    有这样一个外部力的文件,需要每个时间步调用 Fbrk.txt 文件内容如下,第一列是时间 1.07800            13.73559           -16.39831        ...

  8. matlab神经网络拟合后何种参数说明,请教关于BP神经网络参数设置拟合的问题。请大神帮忙看看 - 程序语言 - 小木虫 - 学术 科研 互动社区...

    CODE: %训练变量 xunlianxiangliang=zeros(2,180);%定义一个2行150列的0矩阵:训练变量 xunlianxiangliang(1,=C(1:180); xunli ...

  9. matlab雷诺曲线,多重网格法求解雷诺方程的MATLAB编程 - 程序语言 - 小木虫 - 学术 科研 互动社区...

    这是MATLAB有限差分法求解雷诺方程,可以参考下.希望对你有用 function [Fx,Fy]=FDM_circular(X,Y,X_dot,Y_dot) Fx=0; Fy=0; epsilon= ...

最新文章

  1. MySQL触发器(转载)
  2. array_agg_探索强大SQL模式:ARRAY_AGG,STRUCT和UNNEST
  3. mysql 分段解析_MYSQL分段统计
  4. 带标签的 break 和 continue (Java)
  5. Python3入门机器学习经典算法与应用 第3章 matplotlib基础
  6. 通信原理基础知识概括
  7. mysql官网下载详细教程图文
  8. 萤火虫小程序_“萤火虫课堂”开课了
  9. python网页登录验证码_15.Python实现识别登录验证码(入门)
  10. spider.php使用方法,phpspider爬虫框架的使用
  11. webmagic保存html页面,WebMagic抓取前端Ajax渲染的页面
  12. C讲坛之猜数字游戏的实现
  13. Linu系统——基础知识1
  14. Java中Json解析
  15. Unity3D游戏开发之游戏模型制作:机器人
  16. 大漠插件后台绑定方式: 逆水寒
  17. python爬取网易云音乐飙升榜音乐_python爬取网易云音乐热歌榜 python爬取网易云音乐热歌榜实例代码...
  18. 【01】什么是概率图模型?
  19. java与英语词汇_Java英语词汇表
  20. 【蓝桥杯】简单数论4——丢番图方程

热门文章

  1. oracle net manager没有orcl_Oracle-数据库基础知识
  2. Python入门100题 | 第067题
  3. 华为开源深度学习框架MindSpore背后的商业野心
  4. 【机器人系列】支付宝支付控件输入框模拟输入,输入框模拟输入
  5. 看懂mysql执行计划--官方文档
  6. Errors running builder 'JavaScript Validator' on project
  7. nginx 学习笔记(9) 配置HTTPS服务器--转载
  8. Lesson 14.1 数据归一化与Batch Normalization理论基础
  9. 2020年最新前端学习路线
  10. 为Windows git 配置比较工具为beyond compare