      subroutine mphnam()
      print*
      print*,'code  projection'
      print*,'  0   not specified'
      print*,'  1   polyconic'
      print*,'  2   ellipsoidal transverse mercator'
      print*,'  3   mercator'
      print*,'  4   lambert (standard U.S. parallels at 33N and 45N)'
      print*,'  5   albers us (parallels at 29.5N and 45.5N)'
      print*,'  6   albers alaska (parallels at 55N and 65N)'
      print*,'  7   albers hawaii (parallels at 8N and 18N)'
      print*,'  8   polar stereographic'
      print*,'  9   spherical transverse mercator (DNAG)'
      print*
      return
      end
