linearsolverfactory Module Reference

Functions/Subroutines
class(linearsolverbasetype) function, pointer, public	create_linear_solver (solver_mode, sln_name)
	Factory method to create the linear solver object. More...

Function/Subroutine Documentation

create_linear_solver()

class(linearsolverbasetype) function, pointer, public linearsolverfactory::create_linear_solver	(	character(len=*)	solver_mode,
		character(len=*)	sln_name
	)

Definition at line 22 of file LinearSolverFactory.F90.

    character(len=*) :: solver_mode
    character(len=*) :: sln_name
    class(LinearSolverBaseType), pointer :: solver
 
    solver => null()
 
    if (solver_mode == 'IMS') then
      solver => create_ims_solver(sln_name)
      return
#if defined(__WITH_PETSC__)
    else if (solver_mode == 'PETSC') then
      solver => create_petsc_solver(sln_name)
#endif
    else
      call ustop('Unsupported solver mode: '//trim(solver_mode))
    end if
 

Here is the call graph for this function:

Here is the caller graph for this function: