SUBROUTINE wrt_diags
      RETURN
      END SUBROUTINE wrt_diags