RosettaCodeData/Task/Primorial-numbers/Fortran/primorial-numbers-1.f
2023-07-01 13:44:08 -04:00

2 lines
54 B
Fortran

B.DIGIT(I) = MOD(D,BIGBASE)
C = D/BIGBASE