sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-03 08:16:38
0001 FVOIDP FUNCTION HIMAIN2_ADDRESS() 0002 0003 COMMON/HIMAIN2/KATT(130000,4),PATT(130000,4),VATT(130000,4) 0004 SAVE /HIMAIN2/ 0005 EXTERNAL HIDATA ! All that is required to force loading of BLOCK DATA 0006 FVOIDP GETADDR 0007 0008 HIMAIN2_ADDRESS = GETADDR(KATT(1,1)) 0009 0010 RETURN 0011 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|