k02 Function

public elemental function k02(l) result(k0)

Wave number from wave length
波长计算波数

Arguments

Return Value real(kind=rk)

    elemental real(rk) function k02(l) result(k0)
        real(rk), intent(in) :: l

        k0 = pi2/l

    end function k02