PSS ID Number: 108348
Article Last Modified on 3/24/2000
C Compile options needed: -Ox -G5
20 WT = WT*(0.5/(I+1))
TERM = WT*(.805)
SUM = SUM + TERM
I = I + 1
ADJ = ADJ*4.3/(2.0*I)
IF (TERM.GE.(0.1*SUM)) GO TO 20
END
Additional query words: 1.00 ICE
Keywords: kbbug kberrmsg kbLangFortran KB108348
Technology: kbAudDeveloper kbFORTRANPower32100NT kbFortranSearch kbZNotKeyword2