C---------------------------------------------------------------------
C  MFBLOK - RPLOT MF FILE READ COMMON BLOCK
C
C  dmc -- multiple run support added 14 Nov 1997
C
C  ** CPLOTR ** must also be declared, before MFBLOK
C
C      include 'CPLOTR'
C      include 'MFBLOK'
C
      PARAMETER (IBLKSZ=128)
      COMMON/MFBLK1/ MFBLKI,MFLUNI,MFDATA,MFDUM,MFHDR,
     >			MFBLKI_X,MFLUNI_X,MFHDR_X
C
      LOGICAL MFBLKI			! block format flag
      INTEGER MFLUNI			! LUN
      INTEGER MFHDR(16*IBLKSZ)	! header data
      REAL MFDATA(IBLKSZ),MFDUM(IBLKSZ)	! data buffers
C
      logical MFBLKI_X(naxxtra)	! block format flags
      integer MFLUNI_X(naxxtra)	! LUNs
      integer MFHDR_X(16*IBLKSZ,naxxtra)	! headers
C---------------------------------------------------------------------
 
      SAVE /mfblk1/
