*-- Author : S.J. Maxfield
      SUBROUTINE FTDGEO
*#**********************************************************************                                      
*#                                                                     *                                      
*#    VERSION: 12/04/90   Steve Maxfield                               *                                      
*#                                                                     *                                      
*#                                                                     *                                      
*# PURPOSE: Get certain geometrical data for IOS arrays                *                                      
*#                                                                     *                                      
*#                                                                     *                                      
*#**********************************************************************                                      
*KEEP,BCS.                                                                                                    
*KEEP,FGMIOS.                                                                                                 
*    Planar geometry                                                                                          
*                                                                                                             
*    Radial geometry                                                                                          
*                                                                                                             
*KEEP,FPLGEO.                                                                                                 
C---                                                                                                          
C---                                                                                                          
*KEND.                                                                                                        
*                                                                                                             
*                                                                                                             
*                                                                                                             
*----------------------------------------------------------------------                                       
*     Set up some nominal Geometry a la IOS.                                                                  
*     --------------                                                                                          
        CALL UGTBNK('FGAR',INFGAR)
           CALL H1STOP                                                                                 
        CALL UGTBNK('FGAP',INDP)
           CALL H1STOP                                                                                 
*       Get basic radial parameters...                                                                        
*       Everything is labelled by wire-plane number (1-36)                                                    
*                                                                                                             
*                                                                                                             
*                                                                                                             
*       Get basic planar parameters...                                                                        
*                                                                                                             
*    Cosine and Sine of WIRES:-                                                                               
*           For RWCH Planar code                                                                              
*     -----                                                                                                   
*