Free_SEMQuad Subroutine

3-Clause BSD with attribution
10 statements
Source File

public subroutine Free_SEMQuad(myGeom)

Arguments

Type	Intent	Optional	Attributes		Name
class(SEMQuad),	intent(inout)			::	myGeom

Contents

Source Code

Source Code

  subroutine Free_SEMQuad(myGeom)
    implicit none
    class(SEMQuad),intent(inout) :: myGeom

    call myGeom%x%Free()
    call myGeom%dxds%Free()
    call myGeom%dsdx%Free()
    call myGeom%nHat%Free()
    call myGeom%nScale%Free()
    call myGeom%J%Free()

  endsubroutine Free_SEMQuad