SUBROUTINE FPPDEF
*-- 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                                                               
*