COMPLEX*16 ZB,TB,UB,VB,BND,CI COMPLEX*16 ZB2,TB2,UB2,VB2,BND2 COMPLEX*16 ZBA,TBA,UBA,VBA,BNDA REAL*8 JTOTS,JTOTN,INPT COMMON/CONS1/IMAX,IMAXH,IMAXP2,IMAXP4,JMAX,JMAXM1,JMAXM2, 1KMAX,KMAXM1,KMAXP1,LAST,LONG,LEN1,LEN2,LEN3,NCBUF,NCPHYS,NCOLS, 2NFLDS,NPROG,NPROGP,LFLDS(32),KFLDS(32),KPOLE(32),KEQTR(32), 3KUTSP(2),KUT(ZJMX),KUTNP(2),IAUR,ISHUNK,IDISP COMMON/CONS2/C(120),CSSP(2),CS(ZJMX),CSNP(2),COR(ZJMX),SN(ZJMX), 1TN(ZJMX),EXPS(ZKMX),A(ZKMX),DIFT(ZKMXP), 2XMUE(ZKMXP),RMASS(3),DIFK(ZKMXP),JTOTS,JTOTN,INPT(165) COMMON/CONST3/ZB(ZJMX),TB(ZJMX),UB(ZJMX),VB(ZJMX),BND(ZIMXP),CI, 7ZB2(ZJMX),TB2(ZJMX),UB2(ZJMX),VB2(ZJMX),BND2(ZIMXP), 8ZBA(ZJMX),TBA(ZJMX),UBA(ZJMX),VBA(ZJMX),BNDA(ZIMXP)