| 查看: 823 | 回复: 3 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】为什莫fortran的空数组自动赋值-6.277438562204192E+066
|
|||
|
IMPLICIT NONE INTEGER(KIND=8)::li=10**65 REAL*8,PARAMETER:: PI=3.1415926535 COMPLEX*16,ALLOCATABLE:: speq1(  ,AC(:,,speqd(,DC(:,REAL*8,ALLOCATABLE:: A(:, ,AA(:,,C(:,,D(:,INTEGER i,j,k,NX,NY,NXX,NYY,M,N,FNN,FNM REAL*8 dkx,dky,L,W,kx,ky,dx,dy REAL*8 cx,cy,ms,dum,NyqL,NyqW,NLW,krad,corner,KCx,KCy,UpperK INTEGER ci,cj,lL,rL,bW,tW,dw OPEN(101,FILE='slipgen.out') OPEN(105,FILE='specx.txt') OPEN(106,FILE='specy.txt') OPEN(130,FILE='slipgen.in') OPEN(120,FILE='slipx.txt') OPEN(121,FILE='slipy.txt') !Startup settings CALL RANDOM_SEED() read(130,*)L,W read(130,*)M,N read(130,*)UpperK FNN=N/2+1;FNM=M/2+1 ALLOCATE(speq1(N),AC(M/2,N),speqd(N),DC(M/2,N),A(M,N),AA(M,N),C(M,N),D(M,N)) dkx=1./L;dky=1./W dx=1./dkx/real(M) dy=1./dky/real(N) KCx=UpperK/L !Corner wave-number for along-strike direction KCy=UpperK/W !Corner wave-number for down-dip direction print*,DC(1,1) [ Last edited by sunxiao on 2009-4-30 at 11:36 ] |
回复此楼» 猜你喜欢
40+中年人失业后，还能找到好工作吗？
已经有13人回复
-
用NBS溴化时溶剂除了CCl4外还有什么
已经有6人回复
-
申请科研项目纯靠实力能成功吗？
已经有11人回复
-
极限拉扯，如何抉择
已经有15人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有8人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1432.8
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 442.1小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
3楼2009-03-20 19:52:10
2楼2009-03-19 11:01:46
tjpm
金虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 1025.7
- 散金: 10
- 红花: 1
- 帖子: 367
- 在线: 19.3小时
- 虫号: 717334
- 注册: 2009-03-07
- 专业: 凝聚态物性 II ：电子结构
4楼2009-03-21 10:54:49
200