*-- Author :    John V. Morris
      SUBROUTINE FSUMR
      CALL VZERO(PERCY,4)                                                                              
            CALL FPEAKF(89+J,area,xmax,thresh)
            CALL HFITGA(89+J,G1,G2,G3,GXHI,ICH,HSIG)                                                   
            CALL HMINIM(89+J,-100.)                                                                    
      CALL HPAK(88,C6703)                                                                              
      CALL HPAKE(88,E6703)                                                                             
        CALL HFITPO(88,2,AR,GXHI,ICH,ASIG)                                                             
         CALL FPEAKF(89,area,xmax,thresh)
         CALL HFITGA(89,G1,G2,G3,GXHI,ICH,HSIG)                                                        
         CALL HMINIM(89,-100.)                                                                         
      CALL SVEC(20,0,EVEC)                                                                             
      CALL SVEC(21,0,AVEC)                                                                             
      CALL SVEC(22,0,BVEC)                                                                             
      CALL SVEC(23,0,VVEC)                                                                             
      CALL SVEC(24,0,HVEC)                                                                             
      CALL SVEC(25,0,CVEC)                                                                             
      CALL SVEC(26,0,TVEC)                                                                             
*