*-- Author :    John V. Morris
      SUBROUTINE FSUMP
      CALL VZERO(PERCY,10)                                                                             
      CALL FPEAKF(IDB,area,xmax,thresh)
      CALL UCOPY( P,PAR,NP )                                                                           
      CALL UCOPY( ST0,ST,NP )                                                                          
      CALL UCOPY( PMI0,PMI,NP )                                                                        
      CALL UCOPY( PMA0,PMA,NP )                                                                        
      CALL HFIT(IDB,Fwiebl,NP,PAR,CHISQ,IC,SIG,COV,ST,PMI,PMA)                                         
         CALL HMINIM(IDB,-500.)                                                                        
         CALL HPRINT(IDB) ! DOS of Drift Time                                                          
         CALL FPEAKF(IDF,area,xmax,thresh)
         CALL HFITGA(IDF,G1,G2,G3,GXHI,ICH,HSIG)                                                       
         CALL HMINIM(IDF,-500.)                                                                        
      CALL SVEC( 9,0,PVEC)                                                                             
      CALL SVEC(10,0,EVEC)                                                                             
      CALL SVEC(11,0,AVEC)                                                                             
      CALL SVEC(12,0,BVEC)                                                                             
      CALL SVEC(13,0,VVEC)                                                                             
      CALL SVEC(14,0,HVEC)                                                                             
      CALL SVEC(15,0,CVEC)                                                                             
      CALL SVEC(16,0,TVEC)                                                                             
*