Program ReadCSBinary
    integer     :: len_t, NE
    real(8)     :: torque, fx
    open(101, file='Lowson.ini_0',form='unformatted', ACCESS="STREAM")
   
    read(101) len_t
    print *, len_t
    read(101) NE
    print *, NE
    read(101) torque
    print *, torque
    read(101) fx
    print *, fx
    close(101)
End
이광세 (Lee, Gwang-Se)
 
School of Mechanical Engineering, Pusan National University
(Wind Turbine Noise & Broadband Airfoil-Self Noise)
lee.gse@gmail.com / gs.lee@pusan.ac.kr / twitter.com/leegse
댓글 없음:
댓글 쓰기