/*
 * DO NOT MANUALLY UPDATE THIS FILE.
 * If needed: make cpp_headers
 *
 * fortran2c.py - automatic conversion
 *       blnkdm.inc -> blnkdm.h
 */

#ifndef __BLNKDM__
#define __BLNKDM__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//
//=== Blnkdm ===========================================================*
//
//======================================================================*
//                                                                      *
//     Copyright (C) 2003-2019:  CERN & INFN                            *
//     All Rights Reserved.                                             *
//                                                                      *
//   Include file Blnkdm :                                              *
//                                                                      *
//   Created  on  3 September 1989      by       Alfredo Ferrari        *
//                                                 INFN, Milan          *
//                                                                      *
//     Blnkdm: this is dummy version of the blank common for the Vax    *
//             version of Fluka. It is included in most routines to     *
//             avoid to compile them again if the common dimension have *
//             been changed!!                                           *
//                                                                      *
//     W A R N I N G !!!! check also blnkcm module for any change!!!    *
//                                                                      *
//     W A R N I N G the blank common is initialized to 0 as a I*4      *
//                       array!!!!!!!!!!!!!                             *
//                                                                      *
//----------------------------------------------------------------------*
//
// Start_G77_seq
//      DIMENSION GMSTOR ( 2 ), BRMBRR ( 2 ), BRMEXP ( 2 ), BRMSIG ( 2 ),
//     &          SIGGTT ( 2 ), SIGGDR ( 2 ), COMSCO ( 2 ), LBSTOR ( 2 ),
//     &          JVSTOR ( 2 ), CHBLNK ( 2 )
//      REAL SIGGTT, SIGGDR
//      LOGICAL   LBSTOR
//      INTEGER*2 JVSTOR
//      CHARACTER*8 CHBLNK
//      COMMON / BLNKCM / NSTOR  ( 2 )
// End_G77_seq
// Start_G77_seq
//      EQUIVALENCE ( NSTOR (1), GMSTOR (1) )
//      EQUIVALENCE ( NSTOR (1), BRMBRR (1) )
//      EQUIVALENCE ( NSTOR (1), BRMEXP (1) )
//      EQUIVALENCE ( NSTOR (1), BRMSIG (1) )
//      EQUIVALENCE ( NSTOR (1), COMSCO (1) )
//      EQUIVALENCE ( NSTOR (1), SIGGTT (1) )
//      EQUIVALENCE ( NSTOR (1), SIGGDR (1) )
//      EQUIVALENCE ( NSTOR (1), LBSTOR (1) )
//      EQUIVALENCE ( NSTOR (1), JVSTOR (1) )
//      EQUIVALENCE ( NSTOR (1), CHBLNK (1) )
//      SAVE / BLNKCM /
// End_G77_seq

#include "addrcm.h"
#ifdef __cplusplus
}
#endif
#endif