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