nlor(-i,-j,iblock)=nlor(i,j,iblock)
v0ij=0.0d0
si=-1.0d0
+c write (iout,*) i,j,nterm(i,j,iblock),nlor(i,j,iblock)
do k=1,nterm(i,j,iblock)
+c write(iout,*) 'wchodze',k
read (itorp,*,end=113,err=113) kk,v1(k,i,j,iblock),
& v2(k,i,j,iblock)
v1(k,-i,-j,iblock)=v1(k,i,j,iblock)
do j=-ntortyp+1,ntortyp-1
do k=-ntortyp+1,ntortyp-1
read (itordp,'(3a1)',end=114,err=114) t1,t2,t3
-c write (iout,*) "OK onelett",
-c & i,j,k,t1,t2,t3
+ write (iout,*) "OK onelett",
+ & i,j,k,t1,t2,t3
if (t1.ne.toronelet(i) .or. t2.ne.toronelet(j)
& .or. t3.ne.toronelet(k)) then
endif
read (itordp,*,end=114,err=114) ntermd_1(i,j,k,iblock),
& ntermd_2(i,j,k,iblock)
+ write (iout,*) ntermd_1(i,j,k,iblock),
+ & ntermd_2(i,j,k,iblock)
ntermd_1(-i,-j,-k,iblock)=ntermd_1(i,j,k,iblock)
ntermd_2(-i,-j,-k,iblock)=ntermd_2(i,j,k,iblock)
read (itordp,*,end=114,err=114) (v1c(1,l,i,j,k,iblock),l=1,