LCPQ
/
DEHam
mirror of https://github.com/LCPQ/DEHam
2
0
Fork 0
Code Issues Releases Wiki Activity
DEHam/src/desort.irp.f

34 lines
1.1 KiB
FortranFixed
Raw Permalink Normal View History

initial commit
2016-12-19 23:26:16 +01:00
subroutine desort()
looks like now it works for natom > 16
2018-01-29 00:10:47 +01:00
use iso_c_binding
initial commit
2016-12-19 23:26:16 +01:00
implicit none
integer::i,j,ord,ordh
looks like now it works for natom > 16
2018-01-29 00:10:47 +01:00
integer(C_SIZE_T)::add,addh,deti,dethi,addt
initial commit
2016-12-19 23:26:16 +01:00
do i=1,detfound-1
do j=i+1,detfound
if(foundaddh(i,3).gt.foundaddh(j,3))then
updating code to the current local version, it might not compile atm. 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
2018-01-27 12:41:48 +01:00
dethi = foundaddh(i,1)
initial commit
2016-12-19 23:26:16 +01:00
foundaddh(i,1) = foundaddh(j,1)
updating code to the current local version, it might not compile atm. 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
2018-01-27 12:41:48 +01:00
foundaddh(j,1) = dethi
initial commit
2016-12-19 23:26:16 +01:00
addh = foundaddh(i,2)
foundaddh(i,2) = foundaddh(j,2)
foundaddh(j,2) = addh
ordh = foundaddh(i,3)
foundaddh(i,3) = foundaddh(j,3)
foundaddh(j,3) = ordh
endif
if(foundadd(i,3).gt.foundadd(j,3))then
updating code to the current local version, it might not compile atm. 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
2018-01-27 12:41:48 +01:00
deti = foundadd(i,1)
initial commit
2016-12-19 23:26:16 +01:00
foundadd(i,1) = foundadd(j,1)
updating code to the current local version, it might not compile atm. 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
2018-01-27 12:41:48 +01:00
foundadd(j,1) = deti
initial commit
2016-12-19 23:26:16 +01:00
add = foundadd(i,2)
foundadd(i,2) = foundadd(j,2)
foundadd(j,2) = add
ord = foundadd(i,3)
foundadd(i,3) = foundadd(j,3)
foundadd(j,3) = ord
endif
enddo
enddo
end