assembleElementalMatrix1D_c Subroutine

  1. mod_assembly_c.f90
  2. mod_assembly_c
  3. assembleElementalMatrix1D_c

private subroutine assembleElementalMatrix1D_c(N, d1, d2, xy, Ie) bind(c, name="0")

Arguments

Type IntentOptional AttributesName
integer(kind=c_int), intent(in), value:: N
integer(kind=c_int), intent(in), value:: d1
integer(kind=c_int), intent(in), value:: d2
real(kind=c_double), intent(in) :: xy(N)
real(kind=c_double), intent(inout) :: Ie(N,N)

Calls

proc~~assembleelementalmatrix1d_c~~CallsGraph proc~assembleelementalmatrix1d_c assembleElementalMatrix1D_c interface~assembleelementalmatrix assembleElementalMatrix proc~assembleelementalmatrix1d_c->interface~assembleelementalmatrix

Contents

Source Code

assembleElementalMatrix1D_c

Source Code

    subroutine assembleElementalMatrix1D_c(N, d1, d2, xy, Ie) &
            bind(c, name='assembleElementalMatrix1D_c')
        integer(c_int), intent(in), value :: N, d1, d2
        real(c_double), intent(in)        :: xy(N)
        real(c_double), intent(inout)     :: Ie(N,N)

        integer :: ii

        Ie = assembleElementalMatrix(N, d1, d2, xy)

        return
    end subroutine assembleElementalMatrix1D_c