*-- Author :    Girish D. Patel   07/06/93
      SUBROUTINE FDEADP
************************************************************************                                      
*                                                                      *                                      
*                                                                      *                                      
************************************************************************                                      
      CALL HUNPAK(1,CON,'HIST',1)                                                                      
      CALL VZERO(ZMAX,NY)                                                                              
      CALL VZERO(YMAX,96)                                                                              
      CALL VZERO(YTOT,96)                                                                              
            IF(CON(I,J).LT.0.02) CALL SHD(17,0,FLOAT(I-1),FLOAT(J))                                    
            CALL SHDW(18,0,FLOAT(I-1),FLOAT(J),CON(I,J))                                               
            CALL SHS (19,0,CON(I,J))                                                                   
*