Searched refs:iun_out (Results 1 – 1 of 1) sorted by relevance
379 SUBROUTINE qexsd_cp_line_by_line(iun_out,filename,spec_tag) argument383 integer, intent(in) :: iun_out local427 write(iun_out,"(a)") trim(str)