! integer oldion
real(kind=8),dimension(:,:),allocatable :: alphapolcat,&
- epsheadcat,sig0headcat,sigiso1cat,sigiso2cat,rborncat,&
- sigmap1cat,sigmap2cat,chiscat,wquadcat,chippcat,&
- epsintabcat,debaykapcat,chicat,sigmacat, nstatecat, epscat
+ epsheadcat,sig0headcat,sigiso1cat,sigiso2cat,rborn1cat,rborn2cat,&
+ sigmap1cat,sigmap2cat,chis1cat,chis2cat,wquadcat,chipp1cat,chipp2cat,&
+ epsintabcat,debaykapcat,chi1cat,chi2cat,sigmacat, nstatecat, epscat,&
+ aa_aq_cat,bb_aq_cat
real(kind=8),dimension(:,:,:),allocatable :: alphasurcat,&
alphisocat,wqdipcat,dtailcat,wstatecat