Back to home page

sPhenix code displayed by LXR

 
 

    


File indexing completed on 2025-08-05 08:15:42

0001 C
0002 C
0003       SUBROUTINE ARAN9(QRAN,NDIM)
0004       DIMENSION QRAN(10)
0005       COMMON/SEEDVAX/NUM1
0006       DO 1 I=1,NDIM
0007     1 QRAN(I)=ATL_RAN(NUM1)
0008       RETURN
0009       END