C                         Computation.f
C        The following program computes number of class marks that is 
C        located within a certain ranges. The program contains an 
C        incorrect assignment statement that causes a computation
C        error. 
C	 Note that the incorrect statements and their corrections are indicated by comments. 
          INTEGER MARKS(100), NCLASS(100)
          DO 40 I=1, N
C         TEST IF DATA IS IN RANGE
          IF (MARKS(I).LT.1. OR .MARKS(1).GT.100) GOTO 30
C         TRANSFORMATION TO DIRECTLY DETERMINE CLASS
C         INTERVAL MEMBERSHIP
C	  Incorrect
           J=MARKS(I)- 1/10 + 1 		
C	  Correct
C	   J=(MARKS(I)-1)/10 + 1		
          NCLASS(J) = NCLASS(J) + 1
          GOTO 40
  30      WRITE (3, 102)MARKS(I)
  102     FORMAT (' ***MKS001  DATA OUT OF RANGE ',11)
          STOP
  	  END