!
      integer :: imax,imaxh,imaxp2,imaxp4,jmax,jmaxm1,jmaxm2,
     |  kmax,kmaxm1 ,kmaxp1,last,long,len1,len2,len3,ncbuf,ncphys,
     |  ncols,nprog,nprogp,kflds,kpole,keqtr,kutsp,kut,
     |  kutnp,inpt,iaur,idisp,lflds
      real :: c,cssp,cs,csnp,cor,sn,tn,t0,exps,a,rmass,
     |  difk,tbound,dift,decayf,decayh,xmue,alfalp,efluxlp,sfeps
      COMMON/CONS/IMAX,IMAXH,IMAXP2,IMAXP4,JMAX,JMAXM1,JMAXM2,
     1KMAX,KMAXM1,KMAXP1,LAST,LONG,LEN1,LEN2,LEN3,NCBUF,NCPHYS,NCOLS,
     2NPROG,NPROGP,C(120),LFLDS(32),KFLDS(32),KPOLE(32),KEQTR(32),
     3CSSP(2),CS(ZJMX),CSNP(2),COR(ZJMX),KUTSP(2),KUT(ZJMX),KUTNP(2),
     4SN(ZJMX),TN(ZJMX),T0(ZKMXP),EXPS(ZKMX),A(ZKMX),ZB
     5(ZJMX),TB(ZJMX),UB(ZJMX),VB(ZJMX),BND(ZIMXP),CI,
     6RMASS(3),DIFK(ZKMXP),INPT(165),IAUR,IDISP,
     6ALFALP,EFLUXLP,TBOUND,DIFT(ZKMXP),XMUE(ZKMXP),
     7ZB2(ZJMX),TB2(ZJMX),UB2(ZJMX),VB2(ZJMX),BND2(ZIMXP),
     8ZBA(ZJMX),TBA(ZJMX),UBA(ZJMX),VBA(ZJMX),BNDA(ZIMXP),SFEPS
      COMPLEX ZB,TB,UB,VB,BND,CI
      COMPLEX ZB2,TB2,UB2,VB2,BND2
      COMPLEX ZBA,TBA,UBA,VBA,BNDA
c
c Field information written to history summary for post-model processing.
c
c nfproc is the number of fields processors should read from the history.
c   nfproc is usually the number of fields up to and including NPHI
c   (see index.h)
c
c The names are floats so they can be put in summary (f(1-lsumm)), but
c   are transferred to a character array in the processor.
c   The names are defined with data statements in types.h.
c
      integer,parameter :: nfproc=16
      real fproc_names(nfproc)
      common/fproc/ fproc_names
C
      character*8 nflds_lab(nzflds), nphys_lab(nzphys)
      common/flab_com/ nflds_lab,nphys_lab