pascal_single_row_c Module Subroutine

private subroutine pascal_single_row_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)

Calls

proc~~pascal_single_row_c~~CallsGraph proc~pascal_single_row_c pascal_single_row_c interface~pascal_single_row pascal_single_row proc~pascal_single_row_c->interface~pascal_single_row

Contents

Source Code


Source Code

  module subroutine pascal_single_row_c(N, x, y, row) bind(c, name='pascal_single_row_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)

    row = pascal_single_row(N, x, y)

    return
  end subroutine pascal_single_row_c