added sort_wf.irp.f

external/qp2-dependencies

@@ -1 +1 @@
-Subproject commit ce14f57b50511825a9fedb096749200779d3f4d4
+Subproject commit 6e23ebac001acae91d1c762ca934e09a9b7d614a

src/tools/sort_wf.irp.f

@@ -2,6 +2,19 @@ program sort_wf
  implicit none
  read_wf = .true.
  touch read_wf 
- call save_wavefunction
+ call routine
+
+end
+
+subroutine routine
+ implicit none
+ integer :: i
+ character*(128) :: output
+ integer :: i_unit_output,getUnitAndOpen
+ output=trim(ezfio_filename)//'.wf_sorted'
+ i_unit_output = getUnitAndOpen(output,'w')
+ do i = 1, N_det
+  write(i_unit_output, *)i,dabs(psi_coef_sorted(i,1))
+ enddo
 
 end