14 lines
201 B
FortranFixed
14 lines
201 B
FortranFixed
|
PROGRAM TEST
|
||
|
|
|
||
|
|
USE DIFFERENCE
|
||
|
|
IMPLICIT NONE
|
||
|
|
|
||
|
|
INTEGER :: array(10) = (/ 90, 47, 58, 29, 22, 32, 55, 5, 55, 73 /)
|
||
|
|
INTEGER :: i
|
||
|
|
|
||
|
|
DO i = 1, 9
|
||
|
|
CALL Fdiff(array, i)
|
||
|
|
END DO
|
||
|
|
|
||
|
|
END PROGRAM TEST
|