tem_polygon_material_test_angle Subroutine

  1. tem_polygon_material_module.f90
  2. tem_polygon_material_module
  3. tem_polygon_material_test_angle

public subroutine tem_polygon_material_test_angle(success)

A subroutine to test the angle_between 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_angle~~CallsGraph proc~tem_polygon_material_test_angle tem_polygon_material_test_angle proc~angle_between angle_between proc~tem_polygon_material_test_angle->proc~angle_between

Called by

proc~~tem_polygon_material_test_angle~~CalledByGraph proc~tem_polygon_material_test_angle tem_polygon_material_test_angle program~tem_polygon_material_test tem_polygon_material_test program~tem_polygon_material_test->proc~tem_polygon_material_test_angle

Contents

Variables

res

Variables

TypeVisibilityAttributesNameInitial
real(kind=rk), private :: res