checkResult Subroutine

  1. tem_logical_operator_test.f90
  2. tem_logical_opertor_test
  3. checkResult

subroutine checkResult(res, msg)

Arguments

Type IntentOptional AttributesName
logical, intent(in) :: res
character(len=*), intent(in) :: msg

Called by

proc~~checkresult~~CalledByGraph proc~checkresult checkResult proc~check_variableoperations_byindex check_variableOperations_byIndex proc~check_variableoperations_byindex->proc~checkresult proc~check_logicaltoreal check_logicalToReal proc~check_logicaltoreal->proc~checkresult proc~check_variableoperations_byelement check_variableOperations_byElement proc~check_variableoperations_byelement->proc~checkresult proc~check_variableoperations_bypoint check_variableOperations_byPoint proc~check_variableoperations_bypoint->proc~checkresult proc~check_arrayroutines check_arrayRoutines proc~check_arrayroutines->proc~checkresult proc~check_realtological check_realToLogical proc~check_realtological->proc~checkresult program~tem_logical_opertor_test tem_logical_opertor_test program~tem_logical_opertor_test->proc~check_logicaltoreal program~tem_logical_opertor_test->proc~check_arrayroutines program~tem_logical_opertor_test->proc~check_realtological proc~check_variableoperations check_variableOperations program~tem_logical_opertor_test->proc~check_variableoperations proc~check_variableoperations->proc~check_variableoperations_byindex proc~check_variableoperations->proc~check_variableoperations_byelement proc~check_variableoperations->proc~check_variableoperations_bypoint

Contents

Source Code

checkResult

Source Code

  subroutine checkResult( res, msg )
    logical, intent(in) :: res
    character(len=*), intent(in) :: msg

    if ( .not. res ) then
      write(*,*) msg
      stop
    end if
  end subroutine checkResult