!
! 6/4/98: added ALFALP and EFLUXLP from input for auroral protons.
!
      COMMON/CONS/BEGCON,IMAX,IMAXH,IMAXP2,IMAXP4,JMAX,JMAXM1,JMAXM2,
     1KMAX,KMAXM1,KMAXP1,LAST,LONG,LEN1,LEN2,LEN3,NCBUF,NCPHYS,NCOLS,
     2NFLDS,NPROG,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,JTOTS,JTOTN,
     6RMASS(3),DIFK(ZKMXP),INPT(165),IAUR,ISHUNK,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),
     8ENDCON
      COMPLEX ZB,TB,UB,VB,BND,CI
      COMPLEX ZB2,TB2,UB2,VB2,BND2
      COMPLEX ZBA,TBA,UBA,VBA,BNDA
      REAL JTOTS,JTOTN
      COMMON/CCONS/
     1LLONG,LLEN1,LLEN2,LLEN3,NNCBUF,NNCPHYS,NNCOLS
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
      parameter(nfproc=16)
      real fproc_names(nfproc)
      common/fproc/ fproc_names
C