perbox=.false.
fail=.false.
print *, 'enter chainbuild'
+ call chainbuild_cart
+ return
+ end
+#ifdef DEBUG
if (perbox) then
cost=dcos(theta(3))
sint=dsin(theta(3))
endif
return
end
+#endif
c-------------------------------------------------------------------------
subroutine orig_frame
C