dimension drt(3,3,maxres),rdt(3,3,maxres),dp(3,3),temp(3,3),
& fromto(3,3,maxdim),prordt(3,3,maxres),prodrt(3,3,maxres)
dimension xx(3),xx1(3)
- common /przechowalnia/ fromto
+c common /przechowalnia/ fromto
* get the position of the jth ijth fragment of the chain coordinate system
* in the fromto array.
indmat(i,j)=((2*(nres-2)-i)*(i-1))/2+j-1