dens diag act compile

src/prop.F90

@@ -262,9 +262,7 @@ Program proprietes
         write(f_output,*) 
         write(f_output,*) " >>> One particule density matrix"
         write(f_output,*) "     Not yet implemented"
-        call  dens(ndet,nvec,nblock, psi,det, d,rspin, &
-             g_info,o_info,int_info,prog_info,&
-             rho_tot,rho_spin)
+        call  dens(ndet,nvec, psi,det, d,rspin, o_info, rho_tot,rho_spin)
      end select
   end do