  	     k820309    M          9.1         H                                                                                                       
       fillnegative.f90 FILLNEGATIVE                                          
       DIMXMIN DIMXMAX DIMZMIN DIMZMAX SPCNUM             !                                        !                                        !                                        !                                  @     !                            #     @                                             #XZA_VARBASIC    #XZ_DENSBASIC 	        
                                     
        p      5 r    5 r    p    5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r      5 r          5 r    5 r    p        5 r    5 r    p      5 r                   
                         	            
      5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r          5 r    5 r    p        5 r    5 r    p              (    `                       
           	               
#XZA_FILLNEGATIVE_XZA%MIN    #XZA_FILLNEGATIVE_XZA%MAX    #XZA_VAR        p      5 r    5 r    p    5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r      5 r          5 r    5 r    p        5 r    5 r    p      5 r                                                  MIN                                     MAX      
                                    
         p      5 r    5 r    p    5 r      5 r    5 r    p    5 r      & 5 r    5 r      & 5 r    5 r      5 r          5 r    5 r    p        5 r    5 r    p      5 r                   @                                  
        &           &           &                            @                                  
        &           &                             &      fn#fn       [   j  GRIDSET       0       DIMXMIN+GRIDSET     M  0       DIMXMAX+GRIDSET     }  0       DIMZMIN+GRIDSET       0       DIMZMAX+GRIDSET      0      SPCNUM+GRIDSET "     `       FILLNEGATIVE_INIT /   m    a   FILLNEGATIVE_INIT%XZA_VARBASIC /     ,  a   FILLNEGATIVE_INIT%XZ_DENSBASIC %           XZA_FILLNEGATIVE_XZA )     0      XZA_FILLNEGATIVE_XZA%MIN )   &  0      XZA_FILLNEGATIVE_XZA%MAX -   V    a   XZA_FILLNEGATIVE_XZA%XZA_VAR      |       XZA_BASIC    V	  l       XZ_DENS 