subroutine map65a0

  include 'gcom2.f90'

  call map65a
  ndecdone=1

  return
end subroutine map65a0