tem_polygon_material_test_value Subroutine

  1. tem_polygon_material_module.f90
  2. tem_polygon_material_module
  3. tem_polygon_material_test_value

public subroutine tem_polygon_material_test_value(success)

A subroutine to test the tem_polygon_material_value function in tem_polygon_material_test.

The only argument will be true, if all calculations result in the expected values.

Arguments

TypeIntentOptionalAttributesName
logical, intent(out) :: success

Indicator if all tests were computed correctly.

Calls

proc~~tem_polygon_material_test_value~~CallsGraph proc~tem_polygon_material_test_value tem_polygon_material_test_value 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_value->proc~angle_between

Called by

proc~~tem_polygon_material_test_value~~CalledByGraph proc~tem_polygon_material_test_value tem_polygon_material_test_value program~tem_polygon_material_test tem_polygon_material_test program~tem_polygon_material_test->proc~tem_polygon_material_test_value

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
type(tem_polygon_material_type), private :: polygon
type(tem_polygon_vertex_type), private :: me
real(kind=rk), private :: matval(1)