assemble2D_c Subroutine

  1. mod_assembly_c.f90
  2. mod_assembly_c
  3. assemble2D_c

private subroutine assemble2D_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,2)
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) :: vel(2)
real(kind=c_double), intent(inout) :: GlobalA(num_pts,num_pts)

Calls

proc~~assemble2d_c~~CallsGraph proc~assemble2d_c assemble2D_c interface~assemble assemble proc~assemble2d_c->interface~assemble

Contents

Source Code

assemble2D_c

Source Code

    subroutine assemble2D_c(num_cells, num_pts_per_cell, num_pts, &
            & points, cells, diff, vel, GlobalA) bind(c, name='assemble2D_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
        real(c_double), intent(in)        :: vel(2), points(num_pts, 2)
        real(c_double), intent(inout)     :: GlobalA(num_pts, num_pts)

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

        return
    end subroutine assemble2D_c