DO 100 JORG = NORG, 1,
-1
IF (FTNSS(JORG).LT.AFACTOR/2.0) THEN
Z = (L2-FTNSS(JORG))/(L2-L1) ! SMALL BETTER THEN
LARGE
PARTSUM = PARTSUM + Z
C PRINT
"L1;L2;FITSUM;X;NORM;JORG;Z;PARTSUM=";L1;L2;FITSUM;X;NORM;JORG;Z;PARTSUM
IF (PARTSUM.GE.X) THEN ! SMALL BETTER THEN LARGE
IORG = JORG
RETURN
END IF
END IF
100 CONTINUE