1975 FOR K=1 TO NVI : YE=YE*XP(K)^AA(K) : NEXT K : RETURN