Free_Geometry1D Subroutine

  1. SELF_Geometry_1D.f90
  2. SELF_Geometry_1D
  3. Free_Geometry1D

public subroutine Free_Geometry1D(myGeom)

Arguments

TypeIntentOptionalAttributesName
class(Geometry1D), intent(inout) :: myGeom

Contents

Source Code

Free_Geometry1D

Source Code

  subroutine Free_Geometry1D(myGeom)
    implicit none
    class(Geometry1D),intent(inout) :: myGeom

    call myGeom%x%Free()
    call myGeom%dxds%Free()

  endsubroutine Free_Geometry1D