EIC code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-02-21 10:05:28
0001 /* 0002 * pawidn.h -- 0003 * Map the /PAWIDN/ common block 0004 * 0005 * Original: 25-Aug-1995 14:23 0006 * 0007 * Author: Maarten Ballintijn <Maarten.Ballintijn@cern.ch> 0008 * 0009 * $Id$ 0010 * 0011 * $Log$ 0012 * Revision 1.3 1999/06/28 15:08:31 couet 0013 * - use now cfortran.h in $CVSCOSRC 0014 * 0015 * Revision 1.2 1996/04/23 18:37:50 maartenb 0016 * - Add RCS keywords 0017 * 0018 * 0019 */ 0020 0021 #include <cfortran/cfortran.h> 0022 0023 0024 #ifndef CERN_PAWIDN 0025 #define CERN_PAWIDN 0026 0027 0028 typedef struct { 0029 int idnevt; 0030 float vidn1, vidn2, vidn3, vidn[10]; 0031 float x[512]; 0032 } pawidn_def; 0033 0034 #define PAWIDN COMMON_BLOCK(PAWIDN,pawidn) 0035 0036 COMMON_BLOCK_DEF(pawidn_def,PAWIDN); 0037 0038 #endif /* CERN_PAWIDN */
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|