subroutine map65a0
  include 'gcom2.f90'
  call map65a
  return
end subroutine map65a0