EIC code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-02-21 10:05:30
0001 /* 0002 * pawc.h -- 0003 * Map the /PAWC/ common block 0004 * 0005 * Original: 7-Nov-1994 22:27 0006 * 0007 * Author: Maarten Ballintijn <Maarten.Ballintijn@cern.ch> 0008 * 0009 */ 0010 0011 #ifndef CERN_PAWC 0012 #define CERN_PAWC 0013 0014 #include "cfortran.h" 0015 0016 0017 typedef struct { 0018 union { 0019 int iq[1]; 0020 float q[1]; 0021 } u; 0022 } pawc_def; 0023 0024 #define PAWC COMMON_BLOCK(PAWC,pawc) 0025 0026 COMMON_BLOCK_DEF(pawc_def,PAWC); 0027 0028 #endif /* CERN_PAWC */
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|