mirror of
https://github.com/LCPQ/DEHam
synced 2024-06-27 23:52:14 +02:00
3278aabfeb
Many new features added: 1. getting S2 values 2. possibility of setting position of hole 3. possibility of setting Sbox 4. three Sbox definitions at once 5. Doing only FAM1 or the full set of states 6. efficiency improvements
21 lines
616 B
Fortran
21 lines
616 B
Fortran
subroutine conv(ideter,deti,dethi)
|
|
implicit none
|
|
BEGIN_DOC
|
|
! this routine converts a detrminant in the old
|
|
! format into the new one and returns the determinant.
|
|
END_DOC
|
|
integer,INTENT(INOUT)::ideter(natomax)
|
|
integer(kind=selected_int_kind(16)),INTENT(INOUT)::deti
|
|
integer(kind=selected_int_kind(16)),INTENT(INOUT)::dethi
|
|
integer::i
|
|
deti=0
|
|
dethi=0
|
|
do i=1,natom
|
|
if(ideter(natom-i+1).eq.2 .and. ideter(natom-i+1).ne.3)then
|
|
deti=IBSET(deti,i-1)
|
|
elseif(ideter(natom-i+1).eq.3)then
|
|
dethi=IBSET(dethi,i-1)
|
|
endif
|
|
enddo
|
|
end
|