SUBROUTINE wrt_station
      RETURN
      END SUBROUTINE wrt_station