Function gcd

Next: Function Graphene_Tube Up: Module structures_module Previous: Function Tube_Radius Contents Index

Function `gcd`

$\begin{boxedminipage}{\textwidth} \begin{verbatim}g = gcd(ai,bi)\end{verbatim} \end{boxedminipage}$

Euclidean algorithm for greatest common divisor of a and b needed by graphene_tube

ai, bi -- integer, intent(in)

Return value -- integer

Graphene_Tube function

gabor 2009-06-30