print_model Subroutine

private impure elemental subroutine print_model(this)

Type Bound

Translation

Arguments

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

Source Code

   elemental impure subroutine print_model(this)
      class(Translation), intent(inout) :: this
      print "('model: ',A)", trim(this%model)
   end subroutine print_model