Merge pull request #265 from AbdAmmar/dev-stable-tc-scf

Dev stable tc scf

src/tc_scf/tc_scf.irp.f

@@ -27,6 +27,23 @@ program tc_scf
   !call orthonormalize_mos()
 
   PROVIDE tcscf_algorithm
+  PROVIDE var_tc
+
+  if(var_tc) then
+
+    print *, ' VAR-TC'
+
+    if(tcscf_algorithm == 'DIIS') then
+      print*, ' NOT implemented yet'
+    elseif(tcscf_algorithm == 'Simple') then
+      call rh_vartcscf_simple()
+    else
+      print *, ' not implemented yet', tcscf_algorithm
+      stop
+    endif
+
+  else
+
     if(tcscf_algorithm == 'DIIS') then
       call rh_tcscf_diis()
     elseif(tcscf_algorithm == 'Simple') then
@@ -39,6 +56,9 @@ program tc_scf
     call minimize_tc_orb_angles()
     call print_energy_and_mos()
 
+  endif
+
+
 end
 
 ! ---