- #1

- 5

- 0

ACS = 1

NUME = 0

DO 12, AC = ACS,NH

IF (VI(AC) .NE. 100.0) THEN

VF(AC) = VI(AC)

GOTO 12

ELSEIF (VI(AC) .EQ. 100.0) THEN

DO 80,AB = AC,AC+24

IF (VI(AB) .EQ. 100) NUME = NUME + 1

IF (VI(AB) .NE. 100) GOTO 81

80 CONTINUE

81 IF ((VI(AC-1)- VI(AC+NUME)) .GT. 0.0) THEN

DO 77, VAL = AC,AC+NUME+1

VF(VAL)=VI(AC)-((VI(AC-1)-VI(AC+NUME))/(NUME+1))

77 CONTINUE

ELSEIF ((VI(AC-1)- VI(AC+NUME)) .LT. 0.0) THEN

NUM = 0

DO 99, VAL = AC,AC+NUME-1

NUM = NUM + 1

VF(VAL)=VF(AC+NUM-2)+((VI(AC+NUME)-VI(AC-1))/(NUME+1))

AC = VAL -1 <=== compiler error

99 CONTINUE

How can I modify AC without getting a compiler error or is an alernative logic necessary??