- write (iout,*) 'chip1= ', chipp1cat(1,j)
- write (iout,*) 'chip2= ', chipp2cat(1,j)
- write (iout,*) 'alphasur1= ', alphasurcat(1,1,j)
- write (iout,*) 'alphasur2= ', alphasurcat(2,1,j)
- write (iout,*) 'alphasur3= ', alphasurcat(3,1,j)
- write (iout,*) 'alphasur4= ', alphasurcat(4,1,j)
- write (iout,*) 'sig1= ', sigmap1cat(1,j)
- write (iout,*) 'sig2= ', sigmap2cat(1,j)
- write (iout,*) 'chis1= ', chis1cat(1,j)
- write (iout,*) 'chis1= ', chis2cat(1,j)
- write (iout,*) 'nstatecat(i,j)= ', nstatecat(1,j)
- write (iout,*) 'wstatecat(k,i,j),k=1= ',wstatecat(1,1,j)
- write (iout,*) 'dhead= ', dheadcat(1,1,1,j)
- write (iout,*) 'dhead2= ', dheadcat(1,2,1,j)
+ write (iout,*) 'chip1= ', chipp1cat(i,j)
+ write (iout,*) 'chip2= ', chipp2cat(i,j)
+ write (iout,*) 'alphasur1= ', alphasurcat(1,i,j)
+ write (iout,*) 'alphasur2= ', alphasurcat(2,i,j)
+ write (iout,*) 'alphasur3= ', alphasurcat(3,i,j)
+ write (iout,*) 'alphasur4= ', alphasurcat(4,i,j)
+ write (iout,*) 'sig1= ', sigmap1cat(i,j)
+ write (iout,*) 'sig2= ', sigmap2cat(i,j)
+ write (iout,*) 'chis1= ', chis1cat(i,j)
+ write (iout,*) 'chis1= ', chis2cat(i,j)
+ write (iout,*) 'nstatecat(i,j)= ', nstatecat(i,j)
+ write (iout,*) 'wstatecat(k,i,j),k=1= ',wstatecat(1,i,j)
+ write (iout,*) 'dhead= ', dheadcat(1,1,i,j)
+ write (iout,*) 'dhead2= ', dheadcat(1,2,i,j)