destroy_trajectory Subroutine

public pure subroutine destroy_trajectory(me)

Destroy a trajectory (deallocate the data arrays).

Type Bound

trajectory

Arguments

Type IntentOptional Attributes Name
class(trajectory), intent(inout) :: me

Called by

proc~~destroy_trajectory~~CalledByGraph proc~destroy_trajectory trajectory%destroy_trajectory proc~export_trajectory_json_file mission_type%export_trajectory_json_file proc~export_trajectory_json_file->proc~destroy_trajectory proc~generate_eclipse_data mission_type%generate_eclipse_data proc~generate_eclipse_data->proc~destroy_trajectory proc~plot_trajectory mission_type%plot_trajectory proc~plot_trajectory->proc~destroy_trajectory proc~halo_solver_main halo_solver_main proc~halo_solver_main->proc~export_trajectory_json_file proc~halo_solver_main->proc~generate_eclipse_data proc~halo_solver_main->proc~plot_trajectory

Source Code

    pure subroutine destroy_trajectory(me)

    implicit none

    class(trajectory),intent(inout) :: me

    if (allocated(me%et)) deallocate(me%et)
    if (allocated(me%x )) deallocate(me%x )
    if (allocated(me%y )) deallocate(me%y )
    if (allocated(me%z )) deallocate(me%z )
    if (allocated(me%vx)) deallocate(me%vx)
    if (allocated(me%vy)) deallocate(me%vy)
    if (allocated(me%vz)) deallocate(me%vz)

    end subroutine destroy_trajectory