jr_cleanup Subroutine

private subroutine jr_cleanup(me)

Clean up module resources

Type Bound

jacchia_roberts_type

Arguments

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

Calls

proc~~jr_cleanup~~CallsGraph proc~jr_cleanup jacchia_roberts_type%jr_cleanup proc~sw_cleanup sw_data_type%sw_cleanup proc~jr_cleanup->proc~sw_cleanup

Source Code

   subroutine jr_cleanup(me)
      class(jacchia_roberts_type), intent(inout) :: me
      call me%sw_data%destroy()
   end subroutine jr_cleanup