C LAST UPDATE: 
C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C
C**************************
C**     KSM_BDAT         **
C**************************
C
C
      BLOCK DATA KSM_BDAT
C
      INCLUDE 'implicit_none.finc'
C
C Purpose: Initialisation of KSM parameters
C
C Author:  John W. Campbell, July 1995
C
C
C====== GLOBALS:
C
      INCLUDE 'ksm_data.finc'
C
C====== DATA:
C
      DATA SPGNAM/' '/, PGNAM/' '/
      DATA NSPGRP/0/, NSYMP/0/, NSYM/0/
      DATA ROTSYM/3072*0.0/
      DATA IS_SYMM/0/, CH_SYMM/0/
      DATA SYMM_CH_MASK /0/
      DATA ISYS/0/, KSYS/3*0/
C
C-------------------------------------------------------------------------------
C
      END