Commit 75ba5a18 authored by Henderson, Shane's avatar Henderson, Shane
Browse files

Merge branch 'hotfix_preconditioners' into 'master' 

Fix ALLOCATED checks in preconditioners

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

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)