[Fortran] 纯文本查看 复制代码
REAL A(1,12)
OPEN(17,FILE='E:\tempabaqus\C.DAT')
READ(17,*)A(:,1)
READ(17,*)A(:,2)
READ(17,*)A(:,3)
READ(17,*)A(:,4)
READ(17,*)A(:,5)
READ(17,*)A(:,6)
READ(17,*)A(:,7)
READ(17,*)A(:,8)
READ(17,*)A(:,9)
READ(17,*)A(:,10)
READ(17,*)A(:,11)
READ(17,*)A(:,12)
OPEN(UNIT=18,FILE='E:\tempabaqus\1.DAT')
OPEN(UNIT=101,FILE='E:\tempabaqus\2.DAT')
OPEN(UNIT=102,FILE='E:\tempabaqus\3.DAT')
OPEN(UNIT=103,FILE='E:\tempabaqus\4.DAT')
OPEN(UNIT=104,FILE='E:\tempabaqus\5.DAT')
OPEN(UNIT=105,FILE='E:\tempabaqus\6.DAT')
OPEN(UNIT=106,FILE='E:\tempabaqus\7.DAT')
OPEN(UNIT=107,FILE='E:\tempabaqus\8.DAT')
WRITE(18,150)A(:,1)
150 FORMAT(F20.10,5X)
WRITE(101,160)A(:,2)
160 FORMAT(F20.10,5X)
WRITE(102,170)A(:,3)
170 FORMAT(F20.10,5X)
WRITE(103,180)A(:,4)
180 FORMAT(F20.10,5X)
WRITE(104,190)A(:,6)
190 FORMAT(F20.10,5X)
WRITE(105,200)A(:,8)
200 FORMAT(F20.10,5X)
WRITE(106,210)A(:,9)
210 FORMAT(F20.10,5X)
WRITE(107,220)A(:,11)
220 FORMAT(F20.10,5X)