SUBROUTINE wrt_ini
      RETURN
      END SUBROUTINE wrt_ini