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
