Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(vector) | :: | pt | ||||
type(PlaneEq) | :: | pleq |
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
FUNCTION Pt2Plane(pt,pleq) RESULT (PtDist)
! PURPOSE OF THIS SUBROUTINE:
! This subroutine calculates the distance from a point
! to the plane (of a surface). Used to determine the reveal
! of a heat transfer subsurface.
! REFERENCE:
! Graphic Gems
IMPLICIT NONE
! SUBROUTINE ARGUMENT DEFINITIONS:
REAL(r64) :: PtDist ! Distance of the point to the plane
TYPE (PlaneEq) :: pleq ! Equation of the plane
TYPE (Vector) :: pt ! Point for determining the distance
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
! na
PtDist = (pleq%x*pt%x) + (pleq%y*pt%y) + (pleq%z*pt%z) + pleq%w
RETURN
END FUNCTION Pt2Plane