Commit 1fce57f8 authored by aarograh's avatar aarograh Committed by Henderson, Shane
Browse files

Fix ALLOCATED checks in preconditioners 

Squash branch 'hotfix_preconditioners' into 'master'

* Fix ALLOCATED checks in preconditioners

**Developer Checklist:**
- [x] Have you done a self-review after creating the merge request?
- [x] Have you filled in the Merge Request information (title, description) thoroughly?
- [x] Have you updated the relevant tickets (if this MR is linked to any VERA-dev tickets)?
- [ ] Have you addressed all suggested feedback and commented on it to let the reviewer know? (Do not resolve discussions that the reviewer started)

**Reviewer Checklist:**
- [x] Have you confirmed all discussions were adequately addressed and resolved them all?
- [x] Does it conform to formatting guidelines?
- [x] Are there adequate and clear comments?
- [x] Is the design clean and sensible?
- [x] Are the changes optimal/efficient?
- [x] Were sufficient DBC checks added?
- [ ] Are there unit tests? (if necessary)
- [ ] Is the MR description clear, including a link to the VERA-Dev issue if appropriate?

**PSM Checklist**
- [ ] Have you confirmed that all discussions were addressed, or that follow-on issues have been created for them?
- [ ] Have you confirmed sufficient testing was conducted?
- [ ] Does this impact other repositories?
- [ ] Does the MR have an adequate description?
- [ ] If the MR has multiple commits, did you set the MR to squash merge?

See merge request https://code.ornl.gov/futility/Futility/-/merge_requests/399
parent 5eb0bb6d

src/PreconditionerTypes.f90

+1 −3
Original line number Diff line number Diff line
@@ -597,7 +597,7 @@ SUBROUTINE setup_RSOR_PreCondtype(thisPC) 
  INTEGER(SIK) :: k,i,j

  REAL(SRK) :: tempreal



  !make sure everything is initialized and allocated

  !make sure everything is initialized

  REQUIRE(thisPC%isinit)



  ! make sure each LU block is initialized
@@ -699,7 +699,6 @@ SUBROUTINE init_DistributedSOR_PreCondtype(thisPC,A,params) 
  INTEGER(SIK) :: k,mpierr,rank



  REQUIRE(.NOT. thisPC%isinit)

  REQUIRE(ALLOCATED(A))

  REQUIRE(A%isInit)



  thisPC%A => A
@@ -849,7 +848,6 @@ SUBROUTINE apply_DistributedRSOR_PreCondType(thisPC,v) 
  INTEGER(SIK) :: k,lowIdx,highIdx



  REQUIRE(thisPC%isInit)

  REQUIRE(ALLOCATED(v))

  REQUIRE(v%isInit)



  SELECT TYPE(v)