pascal_2D_quad_c Module Subroutine

public subroutine pascal_2D_quad_c(N, x, y, row) bind(c, name="0")

Arguments

Type IntentOptional AttributesName
integer(kind=c_int), intent(in), value:: N
real(kind=c_double), intent(in), value:: x
real(kind=c_double), intent(in), value:: y
real(kind=c_double), intent(out) :: row((N+1)**2)

Calls

proc~~pascal_2d_quad_c~~CallsGraph proc~pascal_2d_quad_c pascal_2D_quad_c interface~pascal_row pascal_row proc~pascal_2d_quad_c->interface~pascal_row

Contents

Source Code


Source Code

  module subroutine pascal_2D_quad_c(N, x, y, row) bind(c, name='pascal_2D_quad_c')
    integer(c_int), intent(in), value :: N
    real(c_double), intent(in), value :: x
    real(c_double), intent(in), value :: y
    real(c_double), intent(out)       :: row((N+1)**2)

    row = pascal_row(N, x, y)

    return
  end subroutine pascal_2D_quad_c