ply_project_fpt_test Program

\todo Check reading of the projection configuration. The input has to be configured on the fly! \todo Put various projections into a projection descriptor. \todo Check those projections by doing m2n and n2m, where input and output should be the same within certain bounds. \todo If everything worked fine, write PASSED on the very last line of output, to indicate a successful run of the unit test:


Variables

Type Attributes Name Initial
real(kind=rk) :: res
real(kind=rk) :: newRes
integer :: power
type(tem_general_type) :: general

Subroutines

subroutine check_fpt(power, res)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: power
real(kind=rk), intent(out) :: res