assemble1D_c Subroutine

  1. mod_assembly_c.f90
  2. mod_assembly_c
  3. assemble1D_c

private subroutine assemble1D_c(num_cells, num_pts_per_cell, num_pts, points, cells, diff, vel, GlobalA) bind(c, name="0")

Arguments

Type IntentOptional AttributesName
integer(kind=c_int), intent(in), value:: num_cells
integer(kind=c_int), intent(in), value:: num_pts_per_cell
integer(kind=c_int), intent(in), value:: num_pts
real(kind=c_double), intent(in) :: points(num_pts)
integer(kind=c_int), intent(in) :: cells(num_cells,num_pts_per_cell)
real(kind=c_double), intent(in), value:: diff
real(kind=c_double), intent(in), value:: vel
real(kind=c_double), intent(inout) :: GlobalA(num_pts,num_pts)

Calls

proc~~assemble1d_c~~CallsGraph proc~assemble1d_c assemble1D_c interface~assemble assemble proc~assemble1d_c->interface~assemble

Contents

Source Code

assemble1D_c

Source Code

    subroutine assemble1D_c( &
            num_cells, num_pts_per_cell, num_pts, points, cells, &
            diff, vel, GlobalA) &
            bind(c, name='assemble1D_c')
        integer(c_int), intent(in), value :: num_cells, num_pts_per_cell, num_pts
        integer(c_int), intent(in)        :: cells(num_cells, num_pts_per_cell)
        real(c_double), intent(in), value :: diff, vel
        real(c_double), intent(in)        :: points(num_pts)
        real(c_double), intent(inout)     :: GlobalA(num_pts, num_pts)

        call assemble(points, cells, diff, vel, GlobalA)

        return
    end subroutine assemble1D_c