SUBROUTINE set_diags
      RETURN
      END SUBROUTINE set_diags