program ch0401

! This program reads in and prints out a name

  implicit none
  character *20 :: first_name

  print *, ' type in your first name.'
  print *, ' up to 20 characters'
  read *, first_name
  print *, first_name
end program ch0401