tem_logical_opertor_test Program

  1. tem_logical_operator_test.f90
  2. tem_logical_opertor_test

Uses


Calls

program~~tem_logical_opertor_test~~CallsGraph program~tem_logical_opertor_test tem_logical_opertor_test proc~check_logicaltoreal check_logicalToReal program~tem_logical_opertor_test->proc~check_logicaltoreal proc~fin_env fin_env program~tem_logical_opertor_test->proc~fin_env proc~check_realtological check_realToLogical program~tem_logical_opertor_test->proc~check_realtological proc~check_variableoperations check_variableOperations program~tem_logical_opertor_test->proc~check_variableoperations proc~check_arrayroutines check_arrayRoutines program~tem_logical_opertor_test->proc~check_arrayroutines proc~logicaltoreal logicalToReal proc~check_logicaltoreal->proc~logicaltoreal proc~checkresult checkResult proc~check_logicaltoreal->proc~checkresult mpi_finalize mpi_finalize proc~fin_env->mpi_finalize proc~realtological realToLogical proc~check_realtological->proc~realtological proc~check_realtological->proc~checkresult proc~load_env load_env proc~check_variableoperations->proc~load_env proc~check_variableoperations_byindex check_variableOperations_byIndex proc~check_variableoperations->proc~check_variableoperations_byindex proc~tem_varsys_init tem_varSys_init proc~check_variableoperations->proc~tem_varsys_init interface~tem_variable_load tem_variable_load proc~check_variableoperations->interface~tem_variable_load proc~tem_varsys_append_luavar tem_varSys_append_luaVar proc~check_variableoperations->proc~tem_varsys_append_luavar proc~check_variableoperations_byelement check_variableOperations_byElement proc~check_variableoperations->proc~check_variableoperations_byelement proc~check_variableoperations_bypoint check_variableOperations_byPoint proc~check_variableoperations->proc~check_variableoperations_bypoint proc~open_config_chunk open_config_chunk proc~check_variableoperations->proc~open_config_chunk proc~tem_baryofid tem_BaryOfId proc~check_variableoperations->proc~tem_baryofid proc~tem_create_subtree_of_st_funlist tem_create_subTree_of_st_funList proc~check_variableoperations->proc~tem_create_subtree_of_st_funlist proc~realtologicalarray realToLogicalArray proc~check_arrayroutines->proc~realtologicalarray proc~logicaltorealarray logicalToRealArray proc~check_arrayroutines->proc~logicaltorealarray proc~check_arrayroutines->proc~checkresult

Contents

Variables

Subroutines


Variables

TypeAttributesNameInitial
character, parameter:: nl =C_NEW_LINE
character(len=solSpecLen), parameter:: sysConf ='variable = {'//nl//'  {'//nl//'    name = "true_var",'//nl//'    ncomponents = 1,'//nl//'    vartype = "st_fun",'//nl//'    st_fun = 1.0'//nl//'  },'//nl//'  {'//nl//'    name = "false_var",'//nl//'    ncomponents = 1,'//nl//'    vartype = "st_fun",'//nl//'    st_fun = 0.0'//nl//'  },'//nl//'  {'//nl//'    name = "true_and_true",'//nl//'    ncomponents = 1,'//nl//'    vartype = "operation",'//nl//'    operation = {'//nl//'      kind = "and",'//nl//'      input_varname = { "true_var", "true_var" }'//nl//'    }'//nl//'  },'//nl//'  {'//nl//'    name = "true_and_false",'//nl//'    ncomponents = 1,'//nl//'    vartype = "operation",'//nl//'    operation = {'//nl//'      kind = "and",'//nl//'      input_varname = { "true_var", "false_var" }'//nl//'    }'//nl//'  },'//nl//'  {'//nl//'    name = "true_or_true",'//nl//'    ncomponents = 1,'//nl//'    vartype = "operation",'//nl//'    operation = {'//nl//'      kind = "or",'//nl//'      input_varname = { "true_var", "true_var" }'//nl//'    }'//nl//'  },'//nl//'  {'//nl//'    name = "true_or_false",'//nl//'    ncomponents = 1,'//nl//'    vartype = "operation",'//nl//'    operation = {'//nl//'      kind = "or",'//nl//'      input_varname = { "true_var", "false_var" }'//nl//'    }'//nl//'  },'//nl//'  {'//nl//'    name = "false_or_false",'//nl//'    ncomponents = 1,'//nl//'    vartype = "operation",'//nl//'    operation = {'//nl//'      kind = "or",'//nl//'      input_varname = { "false_var", "false_var" }'//nl//'    }'//nl//'  },'//nl//'}'
logical :: res =.true.

Subroutines

subroutine checkResult(res, msg)

Arguments

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

subroutine check_logicalToReal(res)

Arguments

TypeIntentOptionalAttributesName
logical, intent(inout) :: res

subroutine check_realToLogical(res)

Arguments

TypeIntentOptionalAttributesName
logical, intent(inout) :: res

subroutine check_arrayRoutines(res)

Arguments

TypeIntentOptionalAttributesName
logical, intent(inout) :: res

subroutine check_variableOperations(res)

Arguments

TypeIntentOptionalAttributesName
logical, intent(inout) :: res

subroutine check_variableOperations_byPoint(res, general, tree, varSys, point)

Arguments

TypeIntentOptionalAttributesName
logical, intent(inout) :: res
type(tem_general_type), intent(in) :: general
type(treelmesh_type), intent(in) :: tree
type(tem_varSys_type), intent(in) :: varSys
real(kind=rk), intent(in) :: point(1,3)

subroutine check_variableOperations_byElement(res, general, tree, varSys)

Arguments

TypeIntentOptionalAttributesName
logical, intent(inout) :: res
type(tem_general_type), intent(in) :: general
type(treelmesh_type), intent(in) :: tree
type(tem_varSys_type), intent(in) :: varSys

subroutine check_variableOperations_byIndex(res, general, varSys, indices)

Arguments

TypeIntentOptionalAttributesName
logical, intent(inout) :: res
type(tem_general_type), intent(in) :: general
type(tem_varSys_type), intent(in) :: varSys
integer, intent(in) :: indices(:,:)