c
c      RACC block four info
       character*2   syr(maxiso)
       character*8   hrtyp(maxrec,maxiso)
       integer       nzmax,nzmin
       integer       nz(maxiso),jza(maxiso),nrc(maxiso)
       integer       nrtyp(maxrec,maxiso)
       common /racc1/ syr,hrtyp
       common /racc2/nzmax, nzmin, nz, jza, nrc, nrtyp