Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|

integer, | intent(in) | :: | a |
|||

integer, | intent(in) | :: | b |

ELEMENTAL FUNCTION gcd(a, b) INTEGER, INTENT(IN) :: a, b INTEGER :: gcd INTEGER :: aa, ab, l, rem, s aa = ABS(a) ab = ABS(b) IF (aa < ab) THEN s = aa l = ab ELSE s = ab l = aa END IF IF (s .NE. 0) THEN DO rem = MOD(l, s) IF (rem == 0) EXIT l = s s = rem END DO GCD = s ELSE GCD = l END IF END FUNCTION gcd

DBCSR was developed by DBCSR Authors

© 2023

Documentation generated by FORD