read (isidep,*)(alp(i),i=1,ntyp)
do i=1,ntyp
read (isidep,*)(epslip(i,j),j=i,ntyp)
-C print *,"WARNING!!"
+C write(iout,*) "WARNING!!",i,ntyp
+ write(iout,*) "epslip", i, (epslip(i,j),j=i,ntyp)
C do j=1,ntyp
C epslip(i,j)=epslip(i,j)+0.05d0
C enddo
endif
if (lprint) then
write (iout,'(2(a3,2x),3(1pe10.3),5(0pf8.3))')
- & restyp(i),restyp(j),aa(i,j),bb(i,j),augm(i,j),
+ & restyp(i),restyp(j),aa_aq(i,j),bb_aq(i,j),augm(i,j),
& sigma(i,j),r0(i,j),chi(i,j),chi(j,i)
endif
enddo