mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-17 01:51:47 +02:00
19 lines
309 B
Fortran
19 lines
309 B
Fortran
![]() |
program osoci_program
|
||
|
call debug_det(ref_bitmask,N_int)
|
||
|
|
||
|
implicit none
|
||
|
call FOBOCI_lmct_mlct_old_thr
|
||
|
call provide_all_the_rest
|
||
|
end
|
||
|
subroutine provide_all_the_rest
|
||
|
implicit none
|
||
|
integer :: i
|
||
|
call update_one_body_dm_mo
|
||
|
call provide_properties
|
||
|
call save_osoci_natural_mos
|
||
|
call save_mos
|
||
|
|
||
|
|
||
|
|
||
|
end
|