subroutine save_dxbase(dxbase0)

  use packjt77
  character*6 dxbase0

  dxbase=dxbase0

  return
end subroutine save_dxbase