Program Main
  Implicit None
  Integer :: i,j,k
  Real :: a,b,c,x

  Open(3,File='p1.dat')
  Open(4,File='p1.out')

  print *, 'Input a b c '
  Read *, a,b,c
!  Read(3,FMT="(F9.4)") x
  Read(3,*) x
  print *, 'Input i j k '
  Read 10,  i,j,k
  10 Format(3I2)

  Print *, " Good Program "
  Print 100, '   º¯¼ö i, j, k ', i,j,k
  100 Format(A, 2X, 3(I8))

  Write(4,*) ' º¯¼ö a, b, c', a, b, c
  Write(4,FMT="(' x = ', 2X, F9.4)") x
  Write(*,*) x
  Write(*,FMT="(' x = ', 2X, F14.4)") x
  close(3)
  close(4)
End Program Main