hypre_obj_SetupRHSS Subroutine

private impure subroutine hypre_obj_SetupRHSS(this)

Sets up the rhs vector.

Type Bound

hypre_obj

Arguments

Type IntentOptional Attributes Name
class(hypre_obj), intent(inout) :: this

Hypre machinery

Calls

proc~~hypre_obj_setuprhss~~CallsGraph proc~hypre_obj_setuprhss hypre_obj%hypre_obj_SetupRHSS hypre_structvectorassemble hypre_structvectorassemble proc~hypre_obj_setuprhss->hypre_structvectorassemble hypre_structvectorcreate hypre_structvectorcreate proc~hypre_obj_setuprhss->hypre_structvectorcreate hypre_structvectorinitialize hypre_structvectorinitialize proc~hypre_obj_setuprhss->hypre_structvectorinitialize

Called by

proc~~hypre_obj_setuprhss~~CalledByGraph proc~hypre_obj_setuprhss hypre_obj%hypre_obj_SetupRHSS proc~hypre_obj_setup hypre_obj%hypre_obj_Setup proc~hypre_obj_setup->proc~hypre_obj_setuprhss proc~cdifs_obj_preparesolveroperatorsplap cdifs_obj_PrepareSolverOperatorsPLAP proc~cdifs_obj_preparesolveroperatorsplap->proc~hypre_obj_setup proc~cdifs_obj_preparesolveroperatorsvflap cdifs_obj_PrepareSolverOperatorsVFLAP proc~cdifs_obj_preparesolveroperatorsvflap->proc~hypre_obj_setup proc~grans_obj_preparesolveroperators grans_obj_PrepareSolverOperators proc~grans_obj_preparesolveroperators->proc~hypre_obj_setup proc~marker_set_computesolidvolfrac marker_set%marker_set_ComputeSolidVolFrac proc~marker_set_computesolidvolfrac->proc~hypre_obj_setup proc~cdifs_obj_preparesolveroperators cdifs_obj_PrepareSolverOperators proc~cdifs_obj_preparesolveroperators->proc~cdifs_obj_preparesolveroperatorsplap proc~cdifs_obj_preparesolveroperators->proc~cdifs_obj_preparesolveroperatorsvflap proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->proc~grans_obj_preparesolveroperators interface~grans_obj_preparesolver grans_obj%grans_obj_PrepareSolver interface~grans_obj_preparesolver->proc~grans_obj_preparesolver proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolveroperators interface~cdifs_obj_preparesolver cdifs_obj%cdifs_obj_PrepareSolver interface~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolver

Source Code

    impure subroutine hypre_obj_SetupRHSS(this)
      !> Sets up the rhs vector.
      implicit none
      class(hypre_obj), intent(inout) :: this                                  !! Hypre machinery
      ! Work variables
      integer :: ierr

      ! Create empty vector
      call HYPRE_StructVectorCreate(this%comm,this%grid,this%rhs,ierr)
      ! Indicate vector coefficients are ready to set
      call HYPRE_StructVectorInitialize(this%rhs,ierr)
      ! Assemble for future use
      call HYPRE_StructVectorAssemble(this%rhs,ierr)
      !call HYPRE_StructVectorPrint('vec',this%rhs,ierr)

      return
    end subroutine hypre_obj_SetupRHSS