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)
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)