Init_Geometry1D Subroutine

  1. SELF_Geometry_1D.f90
  2. SELF_Geometry_1D
  3. Init_Geometry1D

public subroutine Init_Geometry1D(myGeom, interp, nElem)

Arguments

TypeIntentOptionalAttributesName
class(Geometry1D), intent(out) :: myGeom
type(Lagrange), intent(in), pointer:: interp
integer, intent(in) :: nElem

Contents

Source Code

Init_Geometry1D

Source Code

  subroutine Init_Geometry1D(myGeom,interp,nElem)
    implicit none
    class(Geometry1D),intent(out) :: myGeom
    type(Lagrange),pointer,intent(in) :: interp
    integer,intent(in) :: nElem

    myGeom%nElem = nElem

    call myGeom%x%Init(interp=interp, &
                       nVar=1, &
                       nElem=nElem)

    call myGeom%dxds%Init(interp=interp, &
                          nVar=1, &
                          nElem=nElem)

  endsubroutine Init_Geometry1D