SUBROUTINE wrt_avg
      RETURN
      END SUBROUTINE wrt_avg