finalize Subroutine

public subroutine finalize()

Arguments

None

Calls

proc~~finalize~18~~CallsGraph proc~finalize~18 finalize none~is_free CptrWrapper%is_free proc~finalize~18->none~is_free

Called by

proc~~finalize~18~~CalledByGraph proc~finalize~18 finalize proc~initialize~27 initialize proc~initialize~27->proc~finalize~18 proc~initialize~2 Initialize proc~initialize~2->proc~initialize~27

Source Code

   subroutine finalize()

      if(SYSTEM_INSTANCE%is_free()) return
      call SYSTEM_INSTANCE%free()

   end subroutine finalize