bindings_laplace_coefficient Function

public function bindings_laplace_coefficient(alpha, s, j, n) result(ans) bind(c, name="bindings_laplace_coefficient")

Arguments

Type IntentOptional Attributes Name
real(kind=c_double), intent(in), value :: alpha
real(kind=c_double), intent(in), value :: s
integer(kind=c_int64_t), intent(in), value :: j
integer(kind=c_int64_t), intent(in), value :: n

Return Value real(kind=c_double)


Calls

proc~~bindings_laplace_coefficient~~CallsGraph proc~bindings_laplace_coefficient bindings_laplace_coefficient proc~compute_laplace_coefficient compute_laplace_coefficient proc~bindings_laplace_coefficient->proc~compute_laplace_coefficient proc~compute_laplace_coefficient->proc~compute_laplace_coefficient

Source Code

      function bindings_laplace_coefficient(alpha, s, j, n) result(ans) bind(c, name="bindings_laplace_coefficient")
         implicit none
         real(c_double),value,     intent(in)  :: alpha
         real(c_double),value,     intent(in)  :: s
         integer(c_int64_t),value, intent(in)  :: j
         integer(c_int64_t),value, intent(in)  :: n
         real(c_double)                        :: ans

         real(DP) :: falpha,fs,fans
         integer(I4B) :: fj,fn

         falpha = real(alpha, kind=DP)
         fs = real(s, kind=DP)
         fj = int(j,kind=I4B)
         fn = int(n,kind=I4B)

         fans = compute_laplace_coefficient(falpha,fj,fs,fn)
         ans = real(fans,kind=c_double)

         return
   end function bindings_laplace_coefficient