카이사르식 암호문을 포트란으로 짜려고 하는데요,
Shift할 간격을 J로 입력을 받고,
원문은 PLAINTXT에, 암호문은 CIPHER에 저장하는 게 목적입니다.
그런데...

일단 제가 짠 소스는 이렇게 됩니다.

      DIMENSION J1(100), K(100)
      CHARACTER*100 PLAINTXT, CIPHER
      CHARACTER TEMP
      READ (5, 10) PLAINTXT
10    FORMAT(5A)
      READ *, J
      DO 30 I = 1, 100
        TEMP = PLAINTXT(I)
        J1(I) = ICHAR(TEMP)
        IF (J1(I) > 100 - J) THEN
          K(I) = J1(I) - 26 + J
        ELSE
          K(I) = J1(I) + J
        ENDIF
        L = K(I)
        TEMP = CHAR(L)
        CIPHER(I) = TEMP
30    CONTINUE
      WRITE(6, 20) CIPHER
20    FORMAT(6A)

      STOP
      END


그런데 이런 오류 두 개가 떠서 미치겠네요.

           TEMP = PLAINTXT(I)
                  1         2
Missing colon as of (2) in substring reference for (1)

CIPHER(I) = TEMP
           1       2
Missing colon as of (2) in substring reference for (1)

무슨 뜻인지 모르겠고, 어떻게 해결해야 하는지 고수님들의 조언 부탁드립니다.