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

#ifndef __BLNKCM__
#define __BLNKCM__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//
//=== Blnkcm ===========================================================*
//
//======================================================================*
//                                                                      *
//     Copyright (C) 2003-2019:  CERN & INFN                            *
//     All Rights Reserved.                                             *
//                                                                      *
//   Include file Blnkcm :                                              *
//                                                                      *
//   Created  on  3 September 1989      by       Alfredo Ferrari        *
//                                                 INFN, Milan          *
//                                                                      *
//     Blnkcm: this is the blank common for the Vax version of Fluka    *
//                                                                      *
//     W A R N I N G !!!! check also blnkdm 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 ( NBLNMX ), BRMBRR ( NBLNMX ), BRMEXP ( NBLNMX ),
//     &          BRMSIG ( NBLNMX ), SIGGTT ( KALGNM*NBLNMX ),
//     &          SIGGDR ( KALGNM*NBLNMX ), COMSCO ( NBLNMX ),
//     &          LBSTOR ( KALGNM*NBLNMX ),
//     &          JVSTOR ( I2ALGN*KALGNM*NBLNMX ),
//     &          CHBLNK ( KALCH8*NBLNMX)
//      REAL SIGGTT, SIGGDR
//      LOGICAL   LBSTOR
//      INTEGER*2 JVSTOR
//      CHARACTER*8 CHBLNK
//      COMMON / BLNKCM / NSTOR  ( KALGNM*NBLNMX )
// 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