|
有的
READ(UNIT=10,FMT="(A200)") ParemeterCardTemp
DO nSource=1,SourceNumber(1)
READ(UNIT=10,FMT=*) SourcePositionOfMain(nSource,1),SourcePositionOfMain(nSource,2),SourcePositionOfMain(nSource,3),SourcePositionOfMain(nSource,4),SourcePositionOfMain(nSource,5),SourcePositionOfMain(nSource,6)
END DO
READ(UNIT=10,FMT="(A200)") ParemeterCardTemp
前后都有,因为我是在unix系统并行机上计算的,所以我在怀疑是不是并行机的系统的问题 |
|