print_language Subroutine

private impure elemental subroutine print_language(this)

Type Bound

Transcription

Arguments

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

Source Code

   elemental impure subroutine print_language(this)
      class(Transcription), intent(inout) :: this
      print "('language: ',A)", trim(this%language)
   end subroutine print_language