C
C---For writing cif type outputs
C
c
c---Cif
c
      INTEGER MXREST
      PARAMETER (MXREST = 100)
      CHARACTER RESTYP(MXREST)*40,RESCRI(MXREST)*20,RESREJ(MXREST)*20
      INTEGER RESNUM(MXREST)
      REAL RESMOD(MXREST),RESTAG(MXREST)
      CHARACTER CIFOUT*4
      INTEGER NRESTR
      COMMON/CIFRES/ NRESTR,RESTYP,RESCRI,RESREJ,RESNUM,RESMOD,RESTAG,
     +               CIFOUT