tem_polygon_material_test Program

  1. tem_polygon_material_test.f90
  2. tem_polygon_material_test

Uses

  • program~~tem_polygon_material_test~~UsesGraph program~tem_polygon_material_test tem_polygon_material_test module~tem_polygon_material_module tem_polygon_material_module program~tem_polygon_material_test->module~tem_polygon_material_module module~aot_table_module aot_table_module module~tem_polygon_material_module->module~aot_table_module module~tem_float_module tem_float_module module~tem_polygon_material_module->module~tem_float_module module~aotus_module aotus_module module~tem_polygon_material_module->module~aotus_module module~tem_logging_module tem_logging_module module~tem_polygon_material_module->module~tem_logging_module module~env_module env_module module~tem_polygon_material_module->module~env_module module~tem_aux_module tem_aux_module module~tem_polygon_material_module->module~tem_aux_module module~tem_float_module->module~env_module module~tem_logging_module->module~aot_table_module module~tem_logging_module->module~aotus_module module~tem_logging_module->module~env_module module~env_module->module~aotus_module iso_fortran_env iso_fortran_env module~env_module->iso_fortran_env mpi mpi module~env_module->mpi module~flu_binding flu_binding module~env_module->module~flu_binding module~tem_aux_module->module~aot_table_module module~tem_aux_module->module~aotus_module module~tem_aux_module->module~tem_logging_module module~tem_aux_module->module~env_module module~tem_comm_env_module tem_comm_env_module module~tem_aux_module->module~tem_comm_env_module module~tem_lua_requires_module tem_lua_requires_module module~tem_aux_module->module~tem_lua_requires_module module~tem_revision_module tem_revision_module module~tem_aux_module->module~tem_revision_module module~tem_aux_module->mpi module~tem_aux_module->module~flu_binding module~tem_tools_module tem_tools_module module~tem_aux_module->module~tem_tools_module module~tem_comm_env_module->mpi module~tem_lua_requires_module->module~aot_table_module module~tem_lua_requires_module->module~aotus_module module~tem_lua_requires_module->module~env_module module~tem_lua_requires_module->module~flu_binding iso_c_binding iso_c_binding module~tem_lua_requires_module->iso_c_binding module~tem_tools_module->module~env_module

Calls

program~~tem_polygon_material_test~~CallsGraph program~tem_polygon_material_test tem_polygon_material_test proc~tem_polygon_material_test_value tem_polygon_material_test_value program~tem_polygon_material_test->proc~tem_polygon_material_test_value proc~tem_polygon_material_test_angle tem_polygon_material_test_angle program~tem_polygon_material_test->proc~tem_polygon_material_test_angle proc~tem_polygon_material_value tem_polygon_material_value proc~tem_polygon_material_test_value->proc~tem_polygon_material_value proc~angle_between angle_between proc~tem_polygon_material_test_angle->proc~angle_between proc~tem_polygon_material_value->proc~angle_between

Contents

Variables

Source Code

tem_polygon_material_test

Variables

Type AttributesNameInitial
logical :: angle_is_correct
logical :: containment_is_correct

Source Code

program tem_polygon_material_test
  use tem_polygon_material_module

  implicit none

  logical :: angle_is_correct
  logical :: containment_is_correct

  call tem_polygon_material_test_angle(angle_is_correct)

  if (.not. angle_is_correct) then
    write(*,*) 'FAILED to compute angles correctly!'
  else
    write(*,*) 'angles computed correctly'
  end if

  write(*,*) ''
  write(*,*) '----------------------------------------'
  write(*,*) ''

  call tem_polygon_material_test_value(containment_is_correct)

  if (.not. containment_is_correct) then
    write(*,*) 'FAILED to compute containment correctly!'
  else
    write(*,*) 'containment computed correctly'
  end if

  if (angle_is_correct .and. containment_is_correct) then
    write(*,*) 'PASSED'
  end if

end program tem_polygon_material_test