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

56 lines
1.6 KiB
FortranFixed
Raw Normal View History

initial commit
2016-12-19 23:26:16 +01:00
subroutine unit_l1(tl1,&
tl2, &
tktyp, &
tistart, &
tnrows, &
txjjxy, &
txjjz , &
txtt , &
tcountcol, &
tntrou, &
tisz, &
now limit the hole movement by giving range
2018-01-28 11:05:08 +01:00
tfix_trou1, &
tfix_trou2, &
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
tfam1, &
initial commit
2016-12-19 23:26:16 +01:00
tcol,tval)
implicit none
now limit the hole movement by giving range
2018-01-28 11:05:08 +01:00
integer,INTENT(INOUT)::tistart, tnrows
integer,INTENT(INOUT)::tntrou, tisz
integer,INTENT(INOUT)::tfix_trou1, tfix_trou2
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
logical*1,INTENT(INOUT)::tfam1
initial commit
2016-12-19 23:26:16 +01:00
integer::i
real*8,INTENT(INOUT)::tval(maxlien)
integer(kind=selected_int_kind(16)),INTENT(INOUT)::tcol(maxlien)
integer(kind=selected_int_kind(16)),INTENT(INOUT),dimension(tnrows)::tcountcol
integer(kind=selected_int_kind(16)),INTENT(INOUT)::tl1(maxlien),tl2(maxlien),tktyp(maxlien)
real*8,INTENT(INOUT)::txtt(maxlien),txjjz(maxlien),txjjxy(maxlien)
nrows = tnrows
provide nrows
do i=1,maxlien
l1(i)=tl1(i)
l2(i)=tl2(i)
ktyp(i)=tktyp(i)
xtt(i) = txtt(i)
xjjxy(i) = txjjxy(i)
xjjz (i) = txjjz (i)
enddo
ntrou = tntrou
isz = tisz
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
FAM1 = tfam1
now limit the hole movement by giving range
2018-01-28 11:05:08 +01:00
fix_trou1 = tfix_trou1
fix_trou2 = tfix_trou2
initial commit
2016-12-19 23:26:16 +01:00
tcol=0
tval=0d0
provide l1 l2 ktyp xtt xjjxy xjjz ntrou
!print *,"l1"
!print *,l1
!print *,"xjjz"
!print *,xjjz
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
!print *,FAM1
initial commit
2016-12-19 23:26:16 +01:00
call unit(tistart, tcountcol,tcol,tval)
end