*-- Author :    Girish D. Patel   07/06/93
      SUBROUTINE FDEADP
************************************************************************                                      
*                                                                      *                                      
*                                                                      *                                      
************************************************************************                                      
                                                                        
      PARAMETER (NX=32)                                                 
      PARAMETER (NY=36)                                                 
      DIMENSION CON(NX,NY),YMAX(32,3),YTOT(32,3),ZMAX(NY)               
                                                                        
      CALL HUNPAK(1,CON,'HIST',1)                                                                      
                                                                        
      CALL VZERO(ZMAX,NY)                                                                              
      CALL VZERO(YMAX,96)                                                                              
      CALL VZERO(YTOT,96)                                                                              
                                                                        
      DO 10 K = 1 , 3                                                   
        DO 10 J = (K-1)*12+1 , K*12                                     
          DO 10 I = 1 , NX                                              
            IF(CON(I,J).GT.YMAX(I,K)) THEN                              
              YMAX(I,K) = CON(I,J)                                      
            ENDIF                                                       
          YTOT(I,K) = YTOT(I,K) + CON(I,J)                              
   10 CONTINUE                                                          
                                                                        
      DO 20 K = 1 , 3                                                   
        DO 20 J = (K-1)*12+1 , K*12                                     
          DO 20 I = 1 , NX                                              
            CON(I,J) = CON(I,J)/YMAX(I,K)                               
            IF(CON(I,J).GT.ZMAX(J)) THEN                                
              ZMAX(J) = CON(I,J)                                        
            ENDIF                                                       
   20 CONTINUE                                                          
                                                                        
      DO 30 K = 1 , 3                                                   
        DO 30 J = (K-1)*12+1 , K*12                                     
          DO 30 I = 1 , NX                                              
            CON(I,J) = CON(I,J)/ZMAX(J)                                 
            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))                                                                   
   30 CONTINUE                                                          
                                                                        
  100 RETURN                                                            
      END                                                               
*