none
severe<39> : error during read, unit 0, file CONOUT$ RRS feed

  • 질문

  • 옛날 버전의 fortran code를 최신버전의 fortran code로 변경하려고 합니다.

    그런데 다음과 같은 오류가나서 질문올립니다.

           CHARACTER STRING(85),QUERY(85),A
    c------------------------------------------------------------------------------
    c    Terminal designation
           COMMON /SJTERM/ KTERM,KUTERM
    c------------------------------------------------------------------------------
           DATA    KTR/0/
    c------------------------------------------------------------------------------
    c    find the length
           DO 9 I=1,79
        QUERY(I) = STRING(I)
        IF (QUERY(I).EQ.'?')  GOTO 10
    9    CONTINUE
    c
    c    display the question
    10     I = I + 1
           QUERY(I) = ' '
           IF (KTERM.EQ.0) THEN
    c      personal computer, Microsoft FORTRAN
            WRITE (KUTERM,12)
    12        FORMAT (/' '$)
            DO 15 J=1,I
         WRITE (KUTERM,14) QUERY(J)
    14     FORMAT (A1$)
    15     CONTINUE
        ELSE
    c      terminal on a mainframe
            WRITE (KUTERM,16) (QUERY(J),J=1,I)
    16        FORMAT (/' ',80(A1))
        ENDIF
    c
    c    get the response
           READ (KUTERM,21) A

    이부분에서 굵게 적힌 글씨에 error가 납니다.

    2013년 11월 18일 월요일 오전 2:02

모든 응답