]>
Commit | Line | Data |
---|---|---|
b9d0a01d | 1 | #ifndef FLTCLCM_H |
2 | #define FLTCLCM_H 1 | |
3 | ||
4 | #include "cfortran.h" | |
5 | #include "Rtypes.h" | |
6 | ||
7 | extern "C" { | |
8 | //*$ create ltclcm.add | |
9 | //*copy ltclcm | |
10 | //* | |
11 | //*=== ltclcm ===========================================================* | |
12 | //* | |
13 | //*----------------------------------------------------------------------* | |
14 | //* * | |
15 | //* lattice cell common: * | |
16 | //* * | |
17 | //* created on 09 december 1993 by alfredo ferrari & paola sala * | |
18 | //* infn - milan * | |
19 | //* * | |
20 | //* last change on 10-dec-93 by alfredo ferrari * | |
21 | //* * | |
22 | //* * | |
23 | //*----------------------------------------------------------------------* | |
24 | //* | |
25 | ||
26 | typedef struct { | |
27 | Int_t mlattc; | |
28 | Int_t newlat; | |
29 | Int_t mlatld; | |
30 | Int_t mlatm1; | |
31 | Int_t mltsen; | |
32 | Int_t mltsm1; | |
33 | } ltclcmCommon; | |
34 | #define LTCLCM COMMON_BLOCK(LTCLCM,ltclcm) | |
35 | COMMON_BLOCK_DEF(ltclcmCommon,LTCLCM); | |
36 | } | |
37 | ||
38 | #endif |