Program Main
Implicit None
real A(1,12)
character(len=16) :: c
Integer :: i
Open(17,FILE='E:\tempabaqus\C.DAT')
Do i = 1 , 12
READ(17,*)A(:,i)
End Do
Do i = 1 , 8
write(c,*) i
Open(99+i,FILE='E:\tempabaqus\'//trim(adjustl(c))//'.DAT')
End Do
Do i = 1 , 11
WRITE(99+i,150)A(:,i)
End Do
150 FORMAT(F20.10,5X)
End Program Main
Program Main
Implicit None
real a
character(len=16) :: c
Integer :: i
Open(17,FILE='E:\tempabaqus\C.DAT')
Do i = 1 , 12
READ(17,*) a
write(c,*) i
Open(18,FILE='E:\tempabaqus\'//trim(adjustl(c))//'.DAT')
write(18,150) a
Close(18)
End Do
150 FORMAT(F20.10,5X)
End Program Main