BLOCK DATA BCONST
C:
C: BCONST 91-02-04  MODIFICATIONS: (MATS CARLSSON)
C:        DATA STATEMENT OF NEWSTA AND IRC MOVED FROM OPEN ROUTINE
C:        TO BCONST AND TRANSFERED IN CBCNST
C:
      INCLUDE 'PREC'
      INCLUDE 'PARAM'
      INCLUDE 'CTRAN'
      INCLUDE 'CSLINE'
      INCLUDE 'CCONST'
      INCLUDE 'CBCNST'
C
      DATA TAUQ(0)/0./,X(0)/0.0/
      DATA EE/1.602189E-12/,HH/6.626176E-27/,CC/2.99792458E10/,
     * EM/9.109534E-28/,UU/1.6605655E-24/,BK/1.380662E-16/,
     * PI/3.14159265359/
C
C  MACHINE DEPENDENT DATA:
C  NEWSTA   ACTUAL STATUS USED IN OPEN WHEN ASKED FOR STATUS='NEW'
C           RECOMMENDED VALUES:
C           VMS    'NEW'     GIVES A NEW VERSION
C           UNIX   'UNKNOWN' PREVENTS CRASH IF FILE ALREADY EXISTS
C  IRC      RECORD LENGTH OF DIRECT ACCESS FILES IS SET TO THE
C           NUMBER OF WORDS*IRC. IF THE RECORD LENGTH IS 
C           TO BE GIVEN IN 4 BYTE WORDS, IRC SHOULD BE 1 IN SINGLE
C           PRECISION, 2 IN DOUBLE PRECISION (EXAMPLES: VAX, DEC ULTRIX)
C           IF THE RECORD LENGTH IS TO BE GIVEN IN BYTES, IRC SHOULD BE
C           4 FOR 32 BIT PRECISION, 8 FOR 64 BIT PRECISION RUNS.
C
      DATA NEWSTA,IRC/'UNKNOWN',8/
C
      END
C
C***********************************************************************
C