COMPLEX*16 ZB,TB,UB,VB,BND,CI COMPLEX*16 ZB2,TB2,UB2,VB2,BND2 COMPLEX*16 ZBA,TBA,UBA,VBA,BNDA COMMON/CONS1I/IMAX,IMAXH,IMAXP2,ISHUNK,JMAX,JMAXM1,JMAXM2, 1KMAX,KMAXM1,KMAXP1,LEN1,LEN2,LEN3,NCBUF,NFLDS,NCPHYS COMMON/CONS1R/C(120),CS(JMX),COR(JMX),SN(JMX),TN(JMX), 1EXPS(KMX),DIFK(KMXP),XMUE(KMXP),DIFT(KMXP),RMASS(3) COMMON/CONS1C/ZB(JMX),TB(JMX),UB(JMX),VB(JMX),BND(IMX),CI, 1ZB2(JMX),TB2(JMX),UB2(JMX),VB2(JMX),BND2(IMX), 8ZBA(JMX),TBA(JMX),UBA(JMX),VBA(JMX),BNDA(IMX)