BASIC CONCEPTS AND AN OVERVIEW - Foundations of Nanotechnology: Pore Size in Carbon-Based Nano-Adsorbents - page 172

End Do
Do I = 1,521
Z2(I) = Z2(I + RanSize)
End Do
****************************************
Reset the random number counter to 1.
****************************************
RanCnt = 1
RETURN
END