test_fxtd_n2m2n Program

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) :: res1
real(kind=rk) :: res2
real(kind=rk) :: newRes2
real(kind=rk) :: res3
real(kind=rk) :: newRes3
integer :: power
type(tem_general_type) :: general

Subroutines

subroutine check_fxt_1d(res)

Arguments

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

subroutine check_fxt_2d(power, res)

todo NA: Check if nodes kind and factor are correctly used for

Arguments

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

subroutine check_fxt_3D(power, res)

Arguments

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