*-- Author :    Girish D. Patel   02/02/94
      SUBROUTINE FHTMAP
*                                                                                                             
* Copy the hit map, used hit map and unused hit map for radials                                               
* and planars to the FTDMON area and sum over all runs.                                                       
*                                                                                                             
*                                                                                                             
      CALL SAREA('FTREC',0)                                                                            
      CALL TAREA('FTDMON',0)                                                                           
      CALL COPYFG(71,71,IER)                                                                           
      CALL COPYFG(72,72,IER)                                                                           
      CALL COPYFG(73,73,IER)                                                                           
      CALL COPYFG(74,74,IER)                                                                           
      CALL DTAREA                                                                                      
      CALL SAREA('FTDSGI',0)                                                                           
      CALL TAREA('FTDMON',0)                                                                           
      CALL COPYFG(19501,80,IER)                                                                        
      CALL COPYFG(19511,81,IER)                                                                        
      CALL DTAREA                                                                                      
      CALL SAREA('FTDMON',0)                                                                           
      CALL FDATA('HD',80,0,0,NR,ST40,LEN)
      CALL FDATA('HD',71,0,0,NR,ST41,LEN)
      CALL FDATA('HD',73,0,0,NR,ST42,LEN)
        CALL SHDW (40,0,FLOAT(NX)-0.5,FLOAT(NY)-0.5,ST40(NX,NY))                                       
        CALL SHDW (41,0,FLOAT(NX)-0.5,FLOAT(NY)-0.5,ST41(NX,NY))                                       
        CALL SHDW (42,0,FLOAT(NX)-0.5,FLOAT(NY)-0.5,ST42(NX,NY))                                       
      CALL FDATA('HD',81,0,0,NR,ST50,LEN)
      CALL FDATA('HD',72,0,0,NR,ST51,LEN)
      CALL FDATA('HD',74,0,0,NR,ST52,LEN)
        CALL SHDW (50,0,FLOAT(NX)-0.5,FLOAT(NY)-0.5,ST50(NX*2-1,NY))                                   
        CALL SHDW (50,0,FLOAT(NX)-0.5,FLOAT(NY)-0.5,ST50(NX*2,NY))                                     
        CALL SHDW (52,0,FLOAT(NX)-0.5,FLOAT(NY)-0.5,ST52(NX,NY))                                       
        CALL SHDW (51,0,FLOAT(NEWX)-0.5,FLOAT(NY)-0.5,ST51(NX,NY))                                     
      CALL PURGEF(80)                                                                                  
      CALL PURGEF(81)                                                                                  
      CALL PURGEF(71)                                                                                  
      CALL PURGEF(72)                                                                                  
      CALL PURGEF(73)                                                                                  
      CALL PURGEF(74)