Searched refs:SlaveSolver (Results 1 – 1 of 1) sorted by relevance
2952 TYPE(Solver_t), POINTER :: SlaveSolver local2988 SlaveSolver => CurrentModel % Solvers(k)2995 IF(ASSOCIATED(SlaveSolver % Matrix)) THEN2996 IF(ASSOCIATED(SlaveSolver % Matrix % ParMatrix) ) THEN2997 ParEnv = SlaveSolver % Matrix % ParMatrix % ParEnv2999 ParEnv % ActiveComm = SlaveSolver % Matrix % Comm3002 CALL ListAddLogical( SlaveSolver % Values, 'Slave not parallel', .TRUE.)3006 CurrentModel % Solver => SlaveSolver3007 CALL SolverActivate_x( CurrentModel,SlaveSolver,dt,Transient)