mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-08-30 07:53:39 +02:00
Added electron group
This commit is contained in:
parent
e326b4bb5e
commit
1df54bc2fe
@ -32,11 +32,11 @@ program export_trexio
|
|||||||
call check_success(rc)
|
call check_success(rc)
|
||||||
|
|
||||||
! Electrons
|
! Electrons
|
||||||
! rc = trexio_write_electron_up_num(f, elec_alpha_num)
|
rc = trexio_write_electron_up_num(f, elec_alpha_num)
|
||||||
! call check_success(rc)
|
call check_success(rc)
|
||||||
!
|
!
|
||||||
! rc = trexio_write_electron_dn_num(f, elec_beta_num)
|
rc = trexio_write_electron_dn_num(f, elec_beta_num)
|
||||||
! call check_success(rc)
|
call check_success(rc)
|
||||||
|
|
||||||
! Basis
|
! Basis
|
||||||
! rc = trexio_write_basis_type(f, 'Gaussian')
|
! rc = trexio_write_basis_type(f, 'Gaussian')
|
||||||
|
@ -265,6 +265,24 @@ interface
|
|||||||
integer(8), intent(in), value :: trex_file
|
integer(8), intent(in), value :: trex_file
|
||||||
end function trexio_has_mo_2e_int_eri
|
end function trexio_has_mo_2e_int_eri
|
||||||
end interface
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_has_electron_up_num (trex_file) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
end function trexio_has_electron_up_num
|
||||||
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_has_electron_dn_num (trex_file) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
end function trexio_has_electron_dn_num
|
||||||
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_has_ao_cartesian (trex_file) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
end function trexio_has_ao_cartesian
|
||||||
|
end interface
|
||||||
interface
|
interface
|
||||||
integer function trexio_has_nucleus_num (trex_file) bind(C)
|
integer function trexio_has_nucleus_num (trex_file) bind(C)
|
||||||
use, intrinsic :: iso_c_binding
|
use, intrinsic :: iso_c_binding
|
||||||
@ -1063,6 +1081,27 @@ interface
|
|||||||
real(8), intent(out) :: dset(*)
|
real(8), intent(out) :: dset(*)
|
||||||
end function trexio_read_mo_2e_int_eri
|
end function trexio_read_mo_2e_int_eri
|
||||||
end interface
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_read_electron_up_num_32 (trex_file, num) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
integer(4), intent(out) :: num
|
||||||
|
end function trexio_read_electron_up_num_32
|
||||||
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_read_electron_dn_num_32 (trex_file, num) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
integer(4), intent(out) :: num
|
||||||
|
end function trexio_read_electron_dn_num_32
|
||||||
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_read_ao_cartesian_32 (trex_file, num) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
integer(4), intent(out) :: num
|
||||||
|
end function trexio_read_ao_cartesian_32
|
||||||
|
end interface
|
||||||
interface
|
interface
|
||||||
integer function trexio_read_nucleus_num_32 (trex_file, num) bind(C)
|
integer function trexio_read_nucleus_num_32 (trex_file, num) bind(C)
|
||||||
use, intrinsic :: iso_c_binding
|
use, intrinsic :: iso_c_binding
|
||||||
@ -1112,6 +1151,27 @@ interface
|
|||||||
integer(4), intent(out) :: num
|
integer(4), intent(out) :: num
|
||||||
end function trexio_read_mo_num_32
|
end function trexio_read_mo_num_32
|
||||||
end interface
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_read_electron_up_num_64 (trex_file, num) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
integer(8), intent(out) :: num
|
||||||
|
end function trexio_read_electron_up_num_64
|
||||||
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_read_electron_dn_num_64 (trex_file, num) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
integer(8), intent(out) :: num
|
||||||
|
end function trexio_read_electron_dn_num_64
|
||||||
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_read_ao_cartesian_64 (trex_file, num) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
integer(8), intent(out) :: num
|
||||||
|
end function trexio_read_ao_cartesian_64
|
||||||
|
end interface
|
||||||
interface
|
interface
|
||||||
integer function trexio_read_nucleus_num_64 (trex_file, num) bind(C)
|
integer function trexio_read_nucleus_num_64 (trex_file, num) bind(C)
|
||||||
use, intrinsic :: iso_c_binding
|
use, intrinsic :: iso_c_binding
|
||||||
@ -1161,6 +1221,27 @@ interface
|
|||||||
integer(8), intent(out) :: num
|
integer(8), intent(out) :: num
|
||||||
end function trexio_read_mo_num_64
|
end function trexio_read_mo_num_64
|
||||||
end interface
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_read_electron_up_num (trex_file, num) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
integer(4), intent(out) :: num
|
||||||
|
end function trexio_read_electron_up_num
|
||||||
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_read_electron_dn_num (trex_file, num) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
integer(4), intent(out) :: num
|
||||||
|
end function trexio_read_electron_dn_num
|
||||||
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_read_ao_cartesian (trex_file, num) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
integer(4), intent(out) :: num
|
||||||
|
end function trexio_read_ao_cartesian
|
||||||
|
end interface
|
||||||
interface
|
interface
|
||||||
integer function trexio_read_nucleus_num (trex_file, num) bind(C)
|
integer function trexio_read_nucleus_num (trex_file, num) bind(C)
|
||||||
use, intrinsic :: iso_c_binding
|
use, intrinsic :: iso_c_binding
|
||||||
@ -1966,6 +2047,27 @@ interface
|
|||||||
real(8), intent(in) :: dset(*)
|
real(8), intent(in) :: dset(*)
|
||||||
end function trexio_write_mo_2e_int_eri
|
end function trexio_write_mo_2e_int_eri
|
||||||
end interface
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_write_electron_up_num_32 (trex_file, num) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
integer(4), intent(in), value :: num
|
||||||
|
end function trexio_write_electron_up_num_32
|
||||||
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_write_electron_dn_num_32 (trex_file, num) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
integer(4), intent(in), value :: num
|
||||||
|
end function trexio_write_electron_dn_num_32
|
||||||
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_write_ao_cartesian_32 (trex_file, num) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
integer(4), intent(in), value :: num
|
||||||
|
end function trexio_write_ao_cartesian_32
|
||||||
|
end interface
|
||||||
interface
|
interface
|
||||||
integer function trexio_write_nucleus_num_32 (trex_file, num) bind(C)
|
integer function trexio_write_nucleus_num_32 (trex_file, num) bind(C)
|
||||||
use, intrinsic :: iso_c_binding
|
use, intrinsic :: iso_c_binding
|
||||||
@ -2015,6 +2117,27 @@ interface
|
|||||||
integer(4), intent(in), value :: num
|
integer(4), intent(in), value :: num
|
||||||
end function trexio_write_mo_num_32
|
end function trexio_write_mo_num_32
|
||||||
end interface
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_write_electron_up_num_64 (trex_file, num) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
integer(8), intent(in), value :: num
|
||||||
|
end function trexio_write_electron_up_num_64
|
||||||
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_write_electron_dn_num_64 (trex_file, num) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
integer(8), intent(in), value :: num
|
||||||
|
end function trexio_write_electron_dn_num_64
|
||||||
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_write_ao_cartesian_64 (trex_file, num) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
integer(8), intent(in), value :: num
|
||||||
|
end function trexio_write_ao_cartesian_64
|
||||||
|
end interface
|
||||||
interface
|
interface
|
||||||
integer function trexio_write_nucleus_num_64 (trex_file, num) bind(C)
|
integer function trexio_write_nucleus_num_64 (trex_file, num) bind(C)
|
||||||
use, intrinsic :: iso_c_binding
|
use, intrinsic :: iso_c_binding
|
||||||
@ -2064,6 +2187,27 @@ interface
|
|||||||
integer(8), intent(in), value :: num
|
integer(8), intent(in), value :: num
|
||||||
end function trexio_write_mo_num_64
|
end function trexio_write_mo_num_64
|
||||||
end interface
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_write_electron_up_num (trex_file, num) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
integer(4), intent(in), value :: num
|
||||||
|
end function trexio_write_electron_up_num
|
||||||
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_write_electron_dn_num (trex_file, num) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
integer(4), intent(in), value :: num
|
||||||
|
end function trexio_write_electron_dn_num
|
||||||
|
end interface
|
||||||
|
interface
|
||||||
|
integer function trexio_write_ao_cartesian (trex_file, num) bind(C)
|
||||||
|
use, intrinsic :: iso_c_binding
|
||||||
|
integer(8), intent(in), value :: trex_file
|
||||||
|
integer(4), intent(in), value :: num
|
||||||
|
end function trexio_write_ao_cartesian
|
||||||
|
end interface
|
||||||
interface
|
interface
|
||||||
integer function trexio_write_nucleus_num (trex_file, num) bind(C)
|
integer function trexio_write_nucleus_num (trex_file, num) bind(C)
|
||||||
use, intrinsic :: iso_c_binding
|
use, intrinsic :: iso_c_binding
|
||||||
|
Loading…
Reference in New Issue
Block a user