(wqdipcat(k,i,j),k=1,2), &
alphapolcat(i,j),alphapolcat(j,i), &
(alphisocat(k,i,j),k=1,4),sigiso1cat(i,j),sigiso2cat(i,j),epsintabcat(i,j),debaykapcat(i,j)
(wqdipcat(k,i,j),k=1,2), &
alphapolcat(i,j),alphapolcat(j,i), &
(alphisocat(k,i,j),k=1,4),sigiso1cat(i,j),sigiso2cat(i,j),epsintabcat(i,j),debaykapcat(i,j)