finish_geometry Subroutine

public subroutine finish_geometry()

FIXME : Add documentation

Arguments

None

Contents

Source Code

finish_geometry

Source Code

  subroutine finish_geometry
    implicit none
    if (allocated(geom)) then
       call geom%finalise
       deallocate(geom)
    end if
  end subroutine finish_geometry