program main
  implicit none
  real :: discharge

  open(11, file="discharge.dat", status='old')
  read(11, *) discharge
  close(11)
end program main