deallocate_language Subroutine

private pure elemental subroutine deallocate_language(this)

Type Bound

Transcription

Arguments

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

Called by

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

Source Code

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