mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-18 20:13:07 +01:00
46 lines
1.3 KiB
Fortran
46 lines
1.3 KiB
Fortran
BEGIN_PROVIDER [integer, i_unit_x_two_body_dm_ab]
|
|
implicit none
|
|
integer :: getUnitAndOpen
|
|
character*(128) :: file_name
|
|
file_name = trim(trim(ezfio_filename)//'/properties/two_body_dm_x')
|
|
i_unit_x_two_body_dm_ab = getUnitAndOpen(file_name,'w')
|
|
|
|
END_PROVIDER
|
|
|
|
BEGIN_PROVIDER [integer, i_unit_y_two_body_dm_ab]
|
|
implicit none
|
|
integer :: getUnitAndOpen
|
|
character*(128) :: file_name
|
|
file_name = trim(trim(ezfio_filename)//'/properties/two_body_dm_y')
|
|
i_unit_y_two_body_dm_ab = getUnitAndOpen(file_name,'w')
|
|
|
|
END_PROVIDER
|
|
|
|
BEGIN_PROVIDER [integer, i_unit_z_two_body_extra_diag_dm_ab]
|
|
implicit none
|
|
integer :: getUnitAndOpen
|
|
character*(128) :: file_name
|
|
file_name = trim(trim(ezfio_filename)//'/properties/two_body_dm_extra_diag')
|
|
i_unit_z_two_body_extra_diag_dm_ab = getUnitAndOpen(file_name,'w')
|
|
|
|
END_PROVIDER
|
|
|
|
BEGIN_PROVIDER [integer, i_unit_z_two_body_diag_dm_ab]
|
|
implicit none
|
|
integer :: getUnitAndOpen
|
|
character*(128) :: file_name
|
|
file_name = trim(trim(ezfio_filename)//'/properties/two_body_dm_diag')
|
|
i_unit_z_two_body_diag_dm_ab = getUnitAndOpen(file_name,'w')
|
|
|
|
END_PROVIDER
|
|
|
|
BEGIN_PROVIDER [integer, i_unit_z_two_body_total_dm_ab]
|
|
implicit none
|
|
integer :: getUnitAndOpen
|
|
character*(128) :: file_name
|
|
file_name = trim(trim(ezfio_filename)//'/properties/two_body_dm_total')
|
|
i_unit_z_two_body_total_dm_ab = getUnitAndOpen(file_name,'w')
|
|
|
|
END_PROVIDER
|
|
|