| prov:value
| - However, we did not exploit this feature, in order to make the code more compatible with languages such as Visual BASIC or C. PROGRAM Rootfind IMPLICIT NONE INTEGER::ier REAL::a, b, c, r1, i1, r2, i2 DATA a,b,c/1.,6.,2./ CALL Roots(a, b, c, ier, r1, i1, r2, i2) IF (ier == 0) THEN PRINT *, r1,i1, i PRINT *, r2,i2, i ELSE PRINT *, No roots" END IF END SUBROUTINE Roots(a, b, c, ier, r1, i1, r2,
|