mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-08-29 23:43:43 +02:00
Removed trexio_f.f90
This commit is contained in:
parent
61da8b1880
commit
aa745a2b57
@ -1 +1 @@
|
||||
-L/lustre/home/scemama/qp2/lib -ltrexio
|
||||
-L/home/scemama/qp2/lib -L/usr/lib/x86_64-linux-gnu/hdf5/serial -ltrexio -lhdf5
|
||||
|
@ -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"
|
Loading…
Reference in New Issue
Block a user