*-- Author : R. Henderson SUBROUTINE FPPDEF C--------------------------------------------------------------- *KEEP,FPLGEO. C--- COMMON /FPLGEO/ ZPLAN(36) , TP(9) , YP(26) , PLANE(3,9), 1 RMAX , RMIN , YSTART , YSPACE , 2 X0 , Y0 , PZSTRU (8), STAGER , 3 RESOL , ACUT , CTP(9) , STP(9) C--- *KEND. C C--- Define the vectors ALONG the planar planes C DO 10 I = 1,9 PLANE(1,I) = COS(TP(I)) PLANE(2,I) = SIN(TP(I)) PLANE(3,I) = 0.0 10 CONTINUE END *