eldorado.tu-dortmund.de/server/api/core/bitstreams/e4d1f0ea-2f8d-436c-bc46-f9f6db89c8c3/content
P4Y=DCORVG(2,IVT4) P4Z=DCORVG(3,IVT4) C AX2=P2X-P1X AY2=P2Y-P1Y AZ2=P2Z-P1Z AX3=P3X-P1X AY3=P3Y-P1Y AZ3=P3Z-P1Z C PXA=(P1X+P2X+P3X+P4X)*0.25D0 PYA=(P1Y+P2Y+P3Y+P4Y)*0.25D0 PZA=(P1Z+P2Z+P3Z+P4Z)*0.25D0 C AX =PXC-PXA [...] YV6,ZV6,XV7,YV7,ZV7,XV8,YV8,ZV8 DOUBLE PRECISION PXC,PYC,PZC DOUBLE PRECISION P1X,P1Y,P1Z,P2X,P2Y,P2Z,P3X,P3Y,P3Z,P4X,P4Y,P4Z DOUBLE PRECISION AX2,AY2,AZ2,AX3,AY3,AZ3,PXA,PYA,PZA DOUBLE PRECISION AX,AY [...] C 30 P1X=DCORVG(1,IVT1) P1Y=DCORVG(2,IVT1) P1Z=DCORVG(3,IVT1) P2X=DCORVG(1,IVT2) P2Y=DCORVG(2,IVT2) P2Z=DCORVG(3,IVT2) P3X=DCORVG(1,IVT3) P3Y=DCORVG(2,IVT3) P3Z=DCORVG(3,IVT3) P4X=DCORVG(1,IVT4) P4Y=DCORVG(2 …