| 查看: 1351 | 回复: 3 | ||
[求助]
Fortran 77语言的数组定义问题
|
| 我编写了一个abaqus（有限元）子程序，使用Fortran 77语言调用一个数组（180*180），因为Fortran 77 单个数组最多只能有512行，一行6个数，所以需要平均分为12段赋值给新数组输出，为什么输出的数组混乱了？第10、11、12段数组跑到前面来了，导致输出的数组顺序颠倒。。。求大神指教 |
回复此楼» 猜你喜欢
计算机、0854电子信息（085401-058412）调剂
已经有4人回复
-
基金申报
已经有3人回复
-
国自然申请面上模板最新2026版出了吗？
已经有9人回复
-
溴的反应液脱色
已经有6人回复
-
纳米粒子粒径的测量
已经有7人回复
-
常年博士招收(双一流，工科)
已经有4人回复
-
推荐一本书
已经有10人回复
-
参与限项
已经有5人回复
-
有没有人能给点建议
已经有5人回复
-
假如你的研究生提出不合理要求
已经有12人回复
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