| 查看: 1363 | 回复: 3 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
Fortran 77语言的数组定义问题
|
||
| 我编写了一个abaqus（有限元）子程序，使用Fortran 77语言调用一个数组（180*180），因为Fortran 77 单个数组最多只能有512行，一行6个数，所以需要平均分为12段赋值给新数组输出，为什么输出的数组混乱了？第10、11、12段数组跑到前面来了，导致输出的数组顺序颠倒。。。求大神指教 |
回复此楼» 猜你喜欢
今年春晚有几个节目很不错，点赞！
已经有6人回复
-
基金正文30页指的是报告正文还是整个申请书
已经有3人回复
-
球磨粉体时遇到了大的问题，请指教！
已经有15人回复
-
过年走亲戚时感受到了所开私家车的鄙视链
已经有5人回复
-
情人节自我反思：在爱情中有过遗憾吗？
已经有5人回复
-
江汉大学解明教授课题组招博士研究生/博士后
已经有3人回复
4楼2017-08-02 21:33:21
|
SUBROUTINE DLOAD(F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT, 1 COORDS,JLTYP,SNAME) INCLUDE 'ABA_PARAM.INC' DIMENSION TIME(2), COORDS (3) CHARACTER*80 SNAME real:: a(32400) F=0 data a(1:2700)/0,0,0,0,0,0, 1 0,0.00220443,0,0,0,0, 1 0,0,0,0,0,0, 1 0,0,0,0,0,0, 1 0,0,0,0,0,0, 1 0,0,0,0,0,0, 1 0,0,0,0,0.00497663,0.00290721, 1 0,0,0,0,0,0, 1 0,0,0,0,0,0, 1 0,0,0,0,0,0, 1 0,0,0,0,0,0, 1 0,0,0,0,0,0, 1 0,0.00480093,0,0,0,0, 1 0,0,0,0,0,0, 1 0,0,0,0,0,0, 1 0,0,0,0,0.00209624,0.00517915, 1 0,0,0,0,0,0.00745109, 1 0,0,0,0,0,0, 1 0,0,0,0.00202873,0,0, 1 0,0.00220443,0,0,0,0.00220443, 1 0.0145517,0,0,0.00516617,0,0, 。。。。。。。。。。。中间数据太长，省略了（共12段数据）。。。。。。 data a(29701:32400)/0.0168773,0.0358914,0,0,0,0, 1 0,0,0,0,0,0.058191, 1 0.285805,0.192845,0.178793,0.279138,0.817874,1.42453, 1 0.568069,0.17191,0.0252345,0,0,0, 1 0,0,0.0415708,0.0328483,0.0314557,0.006924, 1 0.0146728,0.00747879,0.00206941,0.00923662,0,0, 1 0,0,0,0,0,0, 1 0,0,0,0,0.0280474,0.0282101, 1 0.134518,0.150935,0.192466,0.425515,0.438037,0.286305, 1 0.196144,0.0212048,0.00206941,0.109296,0.143416,0.215023, 1 0.130637,0.019311,0,0,0,0, 1 0,0,0,0,0,0, 1 0,0,0,0,0,0, 1 0,0,0,0,0,0/ 。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。 if (NOEL.ge.907201 .and. NOEL.le.939600)then if (a(NOEL-907200).gt.0.0000000000001)then F=a(NOEL-907200)*1E6 end if end if RETURN END |
3楼2017-08-02 19:59:58