axis_obj_Final Subroutine

private pure subroutine axis_obj_Final(this)

Finalizes object and frees data.

Type Bound

axis_obj

Arguments

Type IntentOptional Attributes Name
class(axis_obj), intent(inout) :: this

A axis object

Called by

proc~~axis_obj_final~~CalledByGraph proc~axis_obj_final axis_obj%axis_obj_Final proc~block_obj_final block_obj%block_obj_Final proc~block_obj_final->proc~axis_obj_final proc~block_obj_partition block_obj%block_obj_Partition proc~block_obj_partition->proc~axis_obj_final proc~collision_obj_setupcollisionblock2 collision_obj%collision_obj_SetupCollisionBlock2 proc~collision_obj_setupcollisionblock2->proc~axis_obj_final proc~cdifs_obj_preparesolverblock cdifs_obj_PrepareSolverBlock proc~cdifs_obj_preparesolverblock->proc~block_obj_partition proc~collision_obj_final collision_obj%collision_obj_Final proc~collision_obj_final->proc~block_obj_final proc~grans_obj_preparesolverblock grans_obj_PrepareSolverBlock proc~grans_obj_preparesolverblock->proc~block_obj_partition proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolverblock proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->proc~grans_obj_preparesolverblock interface~cdifs_obj_preparesolver cdifs_obj%cdifs_obj_PrepareSolver interface~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolver interface~grans_obj_preparesolver grans_obj%grans_obj_PrepareSolver interface~grans_obj_preparesolver->proc~grans_obj_preparesolver

Source Code

    pure subroutine axis_obj_Final(this)
      !> Finalizes object and frees data.
      class(axis_obj), intent(inout) :: this                                   !! A axis object

      ! Free data
      if (associated(this%x  )) deallocate(this%x  )
      if (associated(this%xm )) deallocate(this%xm )
      if (associated(this%dxm)) deallocate(this%dxm)

      return
    end subroutine axis_obj_Final