*-- Author :    Girish D. Patel   07/06/93
      SUBROUTINE FDEADR
************************************************************************                                      
*                                                                      *                                      
*                                                                      *                                      
************************************************************************                                      
      CALL HUNPAK(40,CON,'HIST',1)                                                                     
      CALL VZERO(ZMAX,NY)                                                                              
      CALL VZERO(YMAX,3)                                                                               
      CALL VZERO(YTOT,3)                                                                               
*           CON(I,J) = CON(I,J)/YMAX(K)                                                                       
            IF(CON(I,J).LT.0.02) CALL SHD(27,0,FLOAT(I-1),FLOAT(J))                                    
            CALL SHDW(28,0,FLOAT(I-1),FLOAT(J),CON(I,J))                                               
            CALL SHS (29,0,CON(I,J))                                                                   
*