public  subroutine density_matrix_open(p, f, d)  
    
    open shell part of the density matrix
    Arguments
        
    
      
        | Type | 
Intent | Optional |         Attributes | 
         | 
        Name | 
         | 
    
    
        
            | 
              
              type(param),
             | 
intent(in) | 
               |             
              
             | 
            :: | 
            p | 
            
                
             | 
        
        
            | 
              
              type(wf_data),
             | 
intent(inout) | 
               |             
              
             | 
            :: | 
            f | 
            
                
             | 
        
        
            | 
              
              real(kind=long),
             | 
intent(inout), | 
               |             
              dimension(p%n_basis, p%n_basis)
             | 
            :: | 
            d | 
            
                
             |