WIP

RELEASE_NOTES.org

@@ -2,8 +2,6 @@
 
 * Version 2.2
 
-** New features
-
 ** Changes
 
   - Python3 replaces Python2
@@ -73,6 +71,10 @@
     - S^2 in single precision
     - Added Shank function
     - Added utilities for periodic calculations
+    - Added ~V_ne_psi_energy~
+    - Added ~h_core_huess~ routine
+    - Fixed Laplacians in real space (indices)
+    - 
 
     ao_one_e_integral_zero
     banned_excitations

ocaml/Makefile

@@ -80,7 +80,7 @@ git:
 	./create_git_sha1.sh
 
 ${QP_EZFIO}/Ocaml/ezfio.ml: 
-	$(NINJA) -C ${QP_ROOT}/config ${QP_ROOT}/lib/libezfio_irp.a
+	ninja -C ${QP_ROOT}/config ${QP_ROOT}/lib/libezfio_irp.a
 
 qp_edit.ml: ../scripts/ezfio_interface/qp_edit_template
 

src/fci/pt2.irp.f

@@ -1,3 +1,4 @@
+! -*- mode: f90 -*-
 program pt2
   implicit none
   BEGIN_DOC
@@ -24,7 +25,7 @@ program pt2
   else
      call run_slave_cipsi
   endif
-end
+end program pt2
 
 subroutine run
   implicit none
@@ -60,6 +61,6 @@ subroutine run
   call pt2_dealloc(pt2_data)
   call pt2_dealloc(pt2_data_err)
   deallocate(E_CI_before)
-end
+end subroutine run
 
 

src/utils/linear_algebra.irp.f

@@ -28,14 +28,14 @@ subroutine svd(A,LDA,U,LDU,D,Vt,LDVt,m,n)
   ! Find optimal size for temp arrays
   allocate(work(1))
   lwork = -1
-  call dgesvd('A','A', m, n, A_tmp, LDA,                             &
+  call dgesvd('S','S', m, n, A_tmp, LDA,                             &
       D, U, LDU, Vt, LDVt, work, lwork, info)
   ! /!\ int(WORK(1)) becomes negative when WORK(1) > 2147483648
-  lwork = max(int(work(1)), 5*MIN(M,N))
+  lwork = max(int(work(1)), 10*MIN(M,N))
   deallocate(work)
 
   allocate(work(lwork))
-  call dgesvd('A','A', m, n, A_tmp, LDA,                             &
+  call dgesvd('S','S', m, n, A_tmp, LDA,                             &
       D, U, LDU, Vt, LDVt, work, lwork, info)
   deallocate(A_tmp,work)