TFluka/Fltclcm.h

   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