put_CH Subroutine

private subroutine put_CH(string, iostat)

Append a character string to the current record of the default unit

Arguments

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

Source Code

  subroutine put_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

  end subroutine put_CH