do i=-ntyp1,-1
ithetyp(i)=-ithetyp(-i)
enddo
- write (iout,*) "tu dochodze"
+c write (iout,*) "tu dochodze"
do iblock=1,2
do i=-maxthetyp,maxthetyp
do j=-maxthetyp,maxthetyp
do j=-nthetyp,nthetyp
do k=-nthetyp,nthetyp
read (ithep,'(6a)') res1
- write(iout,*) res1,i,j,k
+c write(iout,*) res1,i,j,k
read (ithep,*) aa0thet(i,j,k,iblock)
read (ithep,*)(aathet(l,i,j,k,iblock),l=1,ntheterm)
read (ithep,*)
do j=1,nsccortyp
read (isccor,*)
&nterm_sccor(i,j),nlor_sccor(i,j)
- write (iout,*) nterm_sccor(i,j)
+c write (iout,*) nterm_sccor(i,j)
v0ijsccor=0.0d0
v0ijsccor1=0.0d0
v0ijsccor2=0.0d0
nterm_sccor(-i,j)=nterm_sccor(i,j)
nterm_sccor(-i,-j)=nterm_sccor(i,j)
nterm_sccor(i,-j)=nterm_sccor(i,j)
- write (iout,*) nterm_sccor(i,j),nterm_sccor(-i,j),
- & nterm_sccor(-i,-j),nterm_sccor(i,-j)
+c write (iout,*) nterm_sccor(i,j),nterm_sccor(-i,j),
+c & nterm_sccor(-i,-j),nterm_sccor(i,-j)
do k=1,nterm_sccor(i,j)
read (isccor,*) kk,v1sccor(k,l,i,j)
& ,v2sccor(k,l,i,j)