put_line_CH Subroutine

private subroutine put_line_CH(string, iostat)

Append a varying string to the current record of the default unit, terminating the record

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: string
integer, intent(out), optional :: iostat

Source Code

  subroutine put_line_CH (string, iostat)

    character(LEN=*), intent(in)   :: string
    integer, intent(out), optional :: iostat


    if(PRESENT(iostat)) then
       write(*, FMT='(A,/)', ADVANCE='NO', IOSTAT=iostat) string
    else
       write(*, FMT='(A,/)', ADVANCE='NO') string
    endif

! Finish

    return

  end subroutine put_line_CH