-<<<<<<< HEAD
- itortyp(i)=-itortyp(-1)
- enddo
-c write (iout,*) 'ntortyp',ntortyp
- do i=0,ntortyp,ntortyp-1
- do j=-ntortyp,ntortyp
- read (itorp,*,end=113,err=113) nterm(i,j,iblock),
- & nlor(i,j,iblock)
- nterm(-i,-j,iblock)=nterm(i,j,iblock)
- nlor(-i,-j,iblock)=nlor(i,j,iblock)
-=======