Init_SEMQuad Subroutine

  1. SELF_Geometry_2D.f90
  2. SELF_Geometry_2D
  3. Init_SEMQuad

public subroutine Init_SEMQuad(myGeom, interp, nElem)

Arguments

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

Contents

Source Code

Init_SEMQuad

Source Code

  subroutine Init_SEMQuad(myGeom,interp,nElem)
    implicit none
    class(SEMQuad),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%x%meta(1)%SetName("x")

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

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

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

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

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

  endsubroutine Init_SEMQuad