|
今天调试程序的时候发现一个非常有意思的问题,我的编译器是IVF2013 update1,平台是VS2012,系统win7 32bit
我把程序单独拿出来了,数据见文件。
程序如下:
[Fortran] 纯文本查看 复制代码 04 | Integer , Allocatable :: emap ( : , : ) |
05 | Integer , Allocatable :: nEleIn ( : ) , nodEle ( : , : ) |
09 | Open ( Unit = 11 , File = 'in.dat' ) |
11 | allocate ( emap ( 3 , nEle ) ) |
16 | allocate ( nEleIn ( nNod ) , nodEle ( nNod , 15 ) ) |
23 | nelein ( emap ( : , i ) ) = nelein ( emap ( : , i ) ) + 1 |
24 | nodele ( emap ( : , i ) , nelein ( emap ( : , i ) ) ) = i |
28 | write ( * , * ) nodEle ( 88 , : ) |
38 | nelein ( emap ( j , i ) ) = nelein ( emap ( j , i ) ) + 1 |
39 | nodele ( emap ( j , i ) , nelein ( emap ( j , i ) ) ) = i |
44 | write ( * , * ) nodEle ( 88 , : ) |
49 | Deallocate ( emap , nEleIn , nodEle ) |
输出结果为:
附件,输入数据文件:
|
|