PSS ID Number: 147760
Article Last Modified on 11/2/1999
C Compile options needed: -4Ya -Ox -4fps1
INTEGER NUMBER, DIVSOR, QUOT, REM
NUMBER = 5
DIVSOR = 2
CALL DIVIDE (NUMBER, DIVSOR, QUOT, REM)
PRINT *, 'Quotient : ', QUOT
PRINT *, 'Remainder: ', REM
END
SUBROUTINE DIVIDE (NUMBER,DIVSOR,QUOT,REM)
INTEGER NUMBER, DIVSOR, QUOT, REM, Q
Q = NUMBER/DIVSOR
REM = NUMBER-DIVSOR*Q
QUOT = Q
END
The following program output is produced at run time:
Quotient : 1 Remainder: 0The correct output should be:
Quotient : 2 Remainder: 1
Additional query words: 4.00
Keywords: kbLangFortran KB147760
Technology: kbAudDeveloper kbFORTRANPower400NT kbFortranSearch kbZNotKeyword8