C                          Combination.f
C    	Note that the incorrect statements and their corrections are indicated by comments.
        DOUBLE PRECISION FUNCTION SINE(X,E)
C       THIS DECLARATION COMPUTES SIN(X) TO ACCURACY E.
        DOUBLE PRECISION E, TERM, SUM
        REAL X
        TERM = X
C       <SUM = X> 
        DO 20 I = E, 100,2
          TERM = TERM *X**2/(I * (I-1))
C	 Incorrect          
	  SUM = SUM + (-1**(I/2)) * TERM	 
C	 Correct
C         SUM = SUM + ((-1)**(I/2)) * TERM     
C	 Incorrect
         IF (TERM.LT.E) GOTO 30
C	 Correct        
C	 IF (DABS(TERM) .LT. E) GOTO 30
  20    CONTINUE
  30    SINE = SUM
        RETURN
        END