*-- Author :    Girish D. Patel   07/06/93
      SUBROUTINE FPEAKF(IDH,area,xmax,thresh)
      CALL HGIVE(IDH,CTITL,NX,XMI,XMA,NY,YMI,YMA,NWT,LOC)                                              
      CALL HUNPAK(IDH,BAK,'HIST',1)                                                                    
      CALL HUNPKE(IDH,BAKE,'HIST',1)                                                                   
      CALL HPAK(IDH,BAK)                                                                               
      CALL HPAKE(IDH,BAKE)                                                                             
*