sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:15:42
0001 C 0002 C 0003 C*************************************** 0004 SUBROUTINE HIJFLV(ID) 0005 COMMON/RANSEED/NSEED 0006 SAVE /RANSEED/ 0007 ID=1 0008 RNID=ATL_RAN(NSEED) 0009 IF(RNID.GT.0.43478) THEN 0010 ID=2 0011 IF(RNID.GT.0.86956) ID=3 0012 ENDIF 0013 RETURN 0014 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|