| 查看: 1375 | 回复: 3 | ||
[求助]
Fortran 77语言的数组定义问题
|
| 我编写了一个abaqus（有限元）子程序，使用Fortran 77语言调用一个数组（180*180），因为Fortran 77 单个数组最多只能有512行，一行6个数，所以需要平均分为12段赋值给新数组输出，为什么输出的数组混乱了？第10、11、12段数组跑到前面来了，导致输出的数组顺序颠倒。。。求大神指教 |
回复此楼» 猜你喜欢
材料考研调剂
已经有3人回复
-
材料调剂
已经有12人回复
-
英一数一408，总分284，二战真诚求调剂
已经有14人回复
-
085410 一志愿211 22408分数359求调剂
已经有4人回复
-
271求调剂
已经有19人回复
-
385分 生物学（071000）求调剂
已经有3人回复
-
一志愿安徽大学计算机科学与技术学硕，331分求调剂
已经有3人回复
-
318求调剂，计算材料方向
已经有8人回复
-
291求调剂
已经有25人回复
-
一志愿北京科技大学085601材料工程英一数二初试总分335求调剂
已经有6人回复
2楼2017-08-02 19:32:30
|
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
4楼2017-08-02 21:33:21
