PROGRAM MAIN IMPLICIT DOUBLE PRECISION (A-H,Q-Z) OPEN(3,FILE='CHIIN.TXT') OPEN(4,FILE='CHIOUT2.TXT') 80 READ(3,*)INUM IF(INUM.EQ.0)GOTO 5000 CHI = 0.0D0 DO 100 J = 1,INUM READ(3,*)XE,XO CHI = CHI + (XE-XO)**2 / XE 100 CONTINUE WRITE(4,1000)CHI,INUM 1000 FORMAT(1H ,'CHI-SQUARE = ',F10.5,1X,'CELLS = ',F10.5) GOTO 80 5000 CONTINUE STOP END