mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-08-30 07:53:39 +02:00
178 lines
6.9 KiB
Forth
178 lines
6.9 KiB
Forth
BEGIN_PROVIDER [ double precision, OOOO, (spin_occ_num,spin_occ_num,spin_occ_num,spin_occ_num) ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
END_DOC
|
|
OOOO(:,:,:,:) = dbERI( &
|
|
1:spin_occ_num, &
|
|
1:spin_occ_num, &
|
|
1:spin_occ_num, &
|
|
1:spin_occ_num )
|
|
END_PROVIDER
|
|
|
|
|
|
BEGIN_PROVIDER [ double precision, OOOV, (spin_occ_num,spin_occ_num,spin_occ_num,spin_vir_num) ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
END_DOC
|
|
OOOV(:,:,:,:) = dbERI( &
|
|
1:spin_occ_num, &
|
|
1:spin_occ_num, &
|
|
1:spin_occ_num, &
|
|
spin_occ_num+1:spin_mo_num)
|
|
END_PROVIDER
|
|
|
|
|
|
BEGIN_PROVIDER [ double precision, OOVO, (spin_occ_num,spin_occ_num,spin_vir_num,spin_occ_num) ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
END_DOC
|
|
OOVO(:,:,:,:) = dbERI( &
|
|
1:spin_occ_num, &
|
|
1:spin_occ_num, &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
1:spin_occ_num)
|
|
END_PROVIDER
|
|
|
|
|
|
BEGIN_PROVIDER [ double precision, OVOO, (spin_occ_num,spin_vir_num,spin_occ_num,spin_occ_num) ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
END_DOC
|
|
OVOO(:,:,:,:) = dbERI( &
|
|
1:spin_occ_num, &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
1:spin_occ_num, &
|
|
1:spin_occ_num)
|
|
END_PROVIDER
|
|
|
|
|
|
BEGIN_PROVIDER [ double precision, VOOO, (spin_vir_num,spin_occ_num,spin_occ_num,spin_occ_num) ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
END_DOC
|
|
VOOO(:,:,:,:) = dbERI( &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
1:spin_occ_num, &
|
|
1:spin_occ_num, &
|
|
1:spin_occ_num)
|
|
END_PROVIDER
|
|
|
|
|
|
BEGIN_PROVIDER [ double precision, OOVV, (spin_occ_num,spin_occ_num,spin_vir_num,spin_vir_num) ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
END_DOC
|
|
OOVV(:,:,:,:) = dbERI( &
|
|
1:spin_occ_num, &
|
|
1:spin_occ_num, &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
spin_occ_num+1:spin_mo_num)
|
|
END_PROVIDER
|
|
|
|
|
|
BEGIN_PROVIDER [ double precision, OVOV, (spin_occ_num,spin_vir_num,spin_occ_num,spin_vir_num) ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
END_DOC
|
|
OVOV(:,:,:,:) = dbERI( &
|
|
1:spin_occ_num, &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
1:spin_occ_num, &
|
|
spin_occ_num+1:spin_mo_num)
|
|
END_PROVIDER
|
|
|
|
|
|
BEGIN_PROVIDER [ double precision, OVVO, (spin_occ_num,spin_vir_num,spin_vir_num,spin_occ_num) ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
END_DOC
|
|
OVVO(:,:,:,:) = dbERI( &
|
|
1:spin_occ_num, &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
1:spin_occ_num)
|
|
END_PROVIDER
|
|
|
|
|
|
BEGIN_PROVIDER [ double precision, VOVO, (spin_vir_num,spin_occ_num,spin_vir_num,spin_occ_num) ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
END_DOC
|
|
VOVO(:,:,:,:) = dbERI( &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
1:spin_occ_num, &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
1:spin_occ_num)
|
|
END_PROVIDER
|
|
|
|
|
|
BEGIN_PROVIDER [ double precision, VVOO, (spin_vir_num,spin_vir_num,spin_occ_num,spin_occ_num) ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
END_DOC
|
|
VVOO(:,:,:,:) = dbERI( &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
1:spin_occ_num, &
|
|
1:spin_occ_num)
|
|
END_PROVIDER
|
|
|
|
|
|
BEGIN_PROVIDER [ double precision, OVVV, (spin_occ_num,spin_vir_num,spin_vir_num,spin_vir_num) ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
END_DOC
|
|
OVVV(:,:,:,:) = dbERI( &
|
|
1:spin_occ_num, &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
spin_occ_num+1:spin_mo_num)
|
|
END_PROVIDER
|
|
|
|
BEGIN_PROVIDER [ double precision, VOVV, (spin_vir_num,spin_occ_num,spin_vir_num,spin_vir_num) ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
END_DOC
|
|
VOVV(:,:,:,:) = dbERI( &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
1:spin_occ_num, &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
spin_occ_num+1:spin_mo_num)
|
|
END_PROVIDER
|
|
|
|
|
|
BEGIN_PROVIDER [ double precision, VVOV, (spin_vir_num,spin_vir_num,spin_occ_num,spin_vir_num) ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
END_DOC
|
|
VVOV(:,:,:,:) = dbERI( &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
1:spin_occ_num, &
|
|
spin_occ_num+1:spin_mo_num)
|
|
END_PROVIDER
|
|
|
|
|
|
BEGIN_PROVIDER [ double precision, VVVO, (spin_vir_num,spin_vir_num,spin_vir_num,spin_occ_num) ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
END_DOC
|
|
VVVO(:,:,:,:) = dbERI( &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
1:spin_occ_num)
|
|
END_PROVIDER
|
|
|
|
BEGIN_PROVIDER [ double precision, VVVV, (spin_vir_num,spin_vir_num,spin_vir_num,spin_vir_num) ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
END_DOC
|
|
VVVV(:,:,:,:) = dbERI( &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
spin_occ_num+1:spin_mo_num, &
|
|
spin_occ_num+1:spin_mo_num)
|
|
END_PROVIDER
|
|
|