이틀 만에 겨우 기본 구조 구성했네..
PROGRAM Test
IMPLICIT NONE
INTEGER :: i, k
INTEGER, PARAMETER :: N=7
REAL :: h=0.0025,m=2800,Alpha=0.99, Time
DOUBLE PRECISION :: x(N), y(N), z(N)
OPEN(UNIT=15, FILE='xyz.dat',STATUS='unknown')
123 FORMAT(5(1x,e20.12))
x(1)=1.0
y(1)=2.0
z(1)=3.0
DO i=1,1
WRITE(15,123) Time, x(i), y(i), z(i)
END DO
CLOSE(15)
END PROGRAM Test
