deallocate_file Subroutine

private pure elemental subroutine deallocate_file(this)

Type Bound

Transcription

Arguments

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

Called by

proc~~deallocate_file~~CalledByGraph proc~deallocate_file foropenai_Transcription::Transcription%deallocate_file proc~deallocate_transcription foropenai_Transcription::Transcription%deallocate_Transcription proc~deallocate_transcription->proc~deallocate_file program~test_transcription test_Transcription program~test_transcription->proc~deallocate_transcription

Source Code

   elemental pure subroutine deallocate_file(this)
      class(Transcription), intent(inout) :: this
      if (allocated(this%file)) deallocate(this%file)
   end subroutine deallocate_file