mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-09-01 00:33:49 +02:00
Compare commits
4 Commits
beb5150885
...
ec1a0e8af4
Author | SHA1 | Date | |
---|---|---|---|
ec1a0e8af4 | |||
c379376737 | |||
aa745a2b57 | |||
61da8b1880 |
@ -1 +0,0 @@
|
||||
-L/lustre/home/scemama/qp2/lib -ltrexio
|
@ -5,3 +5,4 @@ mo_two_e_ints
|
||||
ao_two_e_ints
|
||||
ao_one_e_ints
|
||||
two_body_rdm
|
||||
hartree_fock
|
||||
|
@ -340,6 +340,11 @@ subroutine run
|
||||
rc = trexio_write_mo_coefficient(f, mo_coef)
|
||||
call trexio_assert(rc, TREXIO_SUCCESS)
|
||||
|
||||
! if (trim(mo_label) == 'Canonical') then
|
||||
! rc = trexio_write_mo_energy(f, fock_matrix_diag_mo)
|
||||
! call trexio_assert(rc, TREXIO_SUCCESS)
|
||||
! endif
|
||||
|
||||
|
||||
! One-e MO integrals
|
||||
! ------------------
|
||||
@ -399,7 +404,7 @@ subroutine run
|
||||
end do
|
||||
end do
|
||||
|
||||
if (icount >= 0_8) then
|
||||
if (icount > 0_8) then
|
||||
rc = trexio_write_mo_2e_int_eri(f, offset, icount, eri_index, eri_buffer)
|
||||
call trexio_assert(rc, TREXIO_SUCCESS)
|
||||
end if
|
||||
|
File diff suppressed because it is too large
Load Diff
1
devel/trexio/trexio_module.F90
Normal file
1
devel/trexio/trexio_module.F90
Normal file
@ -0,0 +1 @@
|
||||
#include "trexio_f.f90"
|
0
devel/trexio/uninstall
Normal file → Executable file
0
devel/trexio/uninstall
Normal file → Executable file
Loading…
Reference in New Issue
Block a user