sumx Function

public function sumx(u, v, t)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: u
real(kind=wp), intent(in) :: v
real(kind=wp), intent(out) :: t

Return Value real(kind=wp)


Source Code

    real(wp) function sumx(u, v, t)

    real(wp),intent(in) :: u, v
    real(wp),intent(out) :: t

    real(wp) :: up, vpp

    sumx = u + v
    up = sumx - v
    vpp = sumx - up
    up = up - u
    vpp = vpp - v
    if (sumx == 0.0_wp) then
        t = sumx
    else
        t = 0.0_wp - (up + vpp)
    end if

    end function sumx