C
C =====================================================================
C ===================== B L O C K   D A T A ===========================
C =====================================================================
C
      BLOCK DATA
      IMPLICIT NONE
      INTEGER MAX_NODES,MAX_ELEM_NODES,MAX_MAT_TYPE,MAX_ELEM_BOUND
      INTEGER MAX_LINES,MNNDF,MAX_NODES_DOF
      PARAMETER (MAX_NODES=3000,MAX_ELEM_NODES=20,MAX_MAT_TYPE=10,
     .           MAX_ELEM_BOUND=48,MAX_LINES=3000,MNNDF=3,
     .           MAX_NODES_DOF=MAX_NODES*MNNDF)
      INTEGER GRAPHICS_INTR,OUTPUT_INTR,DIVER_STOP,IDIM,INCREMENTS
      INTEGER ITERATIONS,ITHICK,LDEV,LDEV1,LDEV2,LDEV3,LDEV4,LDEVST
      INTEGER NDIVER,NELEM,NINODE,NLINES,NNDF,NNODES,IE,INT22,INT33
      INTEGER IREP,IS,ISPB,MATYPE,I,J,K,P2X
      REAL*8 CONV_FAC,ENRG1,AD,HMAT,HMATP,RE,RX,RY,RZ,U
      REAL*8 NUX,NUY,NUZ,EX,EY,EZ,P1X,P1Y,P1Z,P2Y,P2Z
      REAL*4 XII,ETAI,SII,FMAG,DMAG,XVL,XVR,YVB,YVT,SX,SY
      LOGICAL LINEAR,RESTART,SYMMETRIC,CONTOURS,GRAPHICS_OUT
      COMMON/MAIN1/U(MAX_NODES_DOF)
      COMMON/MAIN4/RE(MAX_NODES_DOF)
      COMMON/INPUT7/RX(MAX_NODES_DOF),RY(MAX_NODES_DOF),
     .              RZ(MAX_NODES_DOF)
      COMMON/INPUT8/NNODES,NELEM,NNDF,INCREMENTS,ITERATIONS,LINEAR,
     .              SYMMETRIC,IDIM,NINODE
      COMMON/INPUTB/CONV_FAC,ENRG1,NDIVER,DIVER_STOP
      COMMON/INPUTE/ISPB(MAX_NODES)
      COMMON/INPUTF/MATYPE(MAX_MAT_TYPE)
      COMMON/INPUTG/RESTART,OUTPUT_INTR,GRAPHICS_INTR,GRAPHICS_OUT
      COMMON/ADMAT1/AD(81)
      COMMON/DEVICE/LDEV1,LDEV2,LDEV3,LDEV4,LDEV,LDEVST
      COMMON/ELLIB1/XII(MAX_ELEM_NODES),ETAI(MAX_ELEM_NODES),
     .              SII(MAX_ELEM_NODES)
      COMMON/HERM/HMAT(4 , 4),HMATP(4 , 2)
      COMMON/GRAPH1/IS(MAX_ELEM_BOUND),IE(MAX_ELEM_BOUND)
      COMMON/IREP1/IREP(MAX_LINES)
      COMMON/GRAPH4/XVL,XVR,YVB,YVT,SX,SY
      COMMON/GRAPH5/FMAG,DMAG,CONTOURS,ITHICK,NLINES
      COMMON/EXTRP1/INT33(9),INT22(4)
      COMMON/INPUT5/NUX(MAX_MAT_TYPE),NUY(MAX_MAT_TYPE),
     .              NUZ(MAX_MAT_TYPE),EX(MAX_MAT_TYPE),
     .              EY(MAX_MAT_TYPE),EZ(MAX_MAT_TYPE),
     .              P1X(MAX_MAT_TYPE),P1Y(MAX_MAT_TYPE),
     .              P1Z(MAX_MAT_TYPE),P2X(MAX_MAT_TYPE),
     .              P2Y(MAX_MAT_TYPE),P2Z(MAX_MAT_TYPE)
C
      DATA ((HMAT(I,J),J=1,4),I=1,4)/2.,-2.,1.,1.,-3.,3.,-2.,-1.,0.,0.,
     .      1.,0.,1.,0.,0.,0./
      DATA U/MAX_NODES_DOF*0.D0/
      DATA RE/MAX_NODES_DOF*0.D0/,RX/MAX_NODES_DOF*0.D0/
      DATA RY/MAX_NODES_DOF*0.D0/, RZ/MAX_NODES_DOF*0.D0/
      DATA LDEV1,LDEV2,LDEV3,LDEV4,LDEVST/1,2,3,4,14/,ISPB/MAX_NODES*0/
      DATA (XII(K),K=1,MAX_ELEM_NODES)/-1.,1.,1.,-1.,-1.,1.,1.,-1.,0.,1.
     .    ,0.,-1.,-1.,1.,1.,-1.,0.,1.,0.,-1./
      DATA (ETAI(K),K=1,MAX_ELEM_NODES)/-1.,-1.,1.,1.,-1.,-1.,1.,1.,-1.,
     .     0.,1.,0.,-1.,-1.,1.,1.,-1.,0.,1.,0./
      DATA (SII(K),K=1,MAX_ELEM_NODES)/-1.,-1.,-1.,-1.,1.,1.,1.,1.,-1.,
     .     -1.,-1.,-1.,0.,0.,0.,0.,1.,1.,1.,1./
      DATA NNODES,NELEM,NNDF,INCREMENTS,ITERATIONS,LINEAR,SYMMETRIC,IDIM
     .     /0,0,2,1,1,.TRUE.,.TRUE.,2/,RESTART,OUTPUT_INTR,
     .     GRAPHICS_INTR,GRAPHICS_OUT/.FALSE.,0,0,.FALSE./
      DATA NDIVER,CONV_FAC,DIVER_STOP/0,.001,5/,MATYPE/MAX_MAT_TYPE*1/,
     .     AD/81*0./
      DATA NUX,NUY,NUZ,EX,EY,EZ,P1X,P1Y,P1Z,P2X,P2Y,P2Z/
     . MAX_MAT_TYPE*0.0D0,MAX_MAT_TYPE*0.0D0,MAX_MAT_TYPE*0.0D0,
     . MAX_MAT_TYPE*0.0D0,MAX_MAT_TYPE*0.0D0,MAX_MAT_TYPE*0.0D0,
     . MAX_MAT_TYPE*0.0D0,MAX_MAT_TYPE*0.0D0,MAX_MAT_TYPE*0.0D0,
     . MAX_MAT_TYPE*0,MAX_MAT_TYPE*0.0D0,MAX_MAT_TYPE*0.0D0/
C
C        GRAPHICS ELEMENT LINE CONECTIVITY DATA
C
      DATA IS/1,2,3,4,1,5,2,6,3,7,4,8,1,2,3,4,5,6,7,8,2,3,1,4,
     .    1,9,2,10,3,11,4,12,5,17,6,18,7,19,8,20,1,13,4,16,3,15,2,14/
      DATA IE/2,3,4,1,5,2,6,3,7,4,8,1,2,3,4,1,6,7,8,5,6,7,5,8,
     .    9,2,10,3,11,4,12,1,17,6,18,7,19,8,20,5,13,5,16,8,15,7,14,6/
      DATA FMAG,DMAG,CONTOURS,ITHICK/1.,1.,.FALSE.,1/,NLINES/0/
      DATA XVL,XVR,YVB,YVT,SX,SY /0.0,0.0,0.0,0.0,0.0,0.0/
C
C       GAUSSIAN POINT TO NODE CONNECTIVITY DATA FOR NODAL EXTRAPOLATION
C
      DATA INT33/1,3,9,7,2,6,8,4,5/,INT22/1,2,4,3/,IREP/MAX_LINES*0/
C
      END
