포트란! 에러 좀 찾아주세요 ㅠ_ㅠ

프로그램에서
function을 사용했는데..
계속 error 가 좀 생기는데...
왜 생기는지 잘 모르겠어요!

프로그램은
밑에다 복사로 붙일게요!

C Let's find R,S Configuration

DIMENSION A(7)
READ * , A
DO 100 J=1,4

L=1
DO 200 I=2,4
IF(A(I).GE.A(L)) GO TO 200
L=I 제일 작은 걸 찾아서 L으로 지정

200 CONTINUE
A(L) = 100 * (5-J)

100 CONTINUE

A(5)=A(1)
A(6)=A(2)
A(7)=A(3)

N=1
DO 300 K=2,4
IF(A(N).LE.A(K)) GO TO 300
N=K

300 CONTINUE
제일 큰걸 찾아서 K로 지정

X = CONFIGURATION(N)

IF (X.EQ.0) THEN

PRINT *, "THIS IS R CONFIGURATION"

END IF

STOP
END

FUNCTION CONFIGURATION(O)

IF(((A(O+3).EQ.100).AND.(A(O+1).EQ.300).AND.(A(O+2).EQ.200))
6 .OR.((A(O+3).EQ.300).AND.(A(O+1).EQ.200).AND.(A(O+2).EQ.100))
6 .OR.((A(O+3).EQ.200).AND.(A(O+1).EQ.100).AND.(A(O+2).EQ.300)))
6 THEN
CONFIGURATION(O)=0
ELSE
CONFIGURATION(O)=1

END IF
RETURN
END