DEHam/src/unit_l1.irp.f

        subroutine unit_l1(tl1,&
        tl2,                   &
        tktyp,                 &
        tistart,               &
        tnrows,                 &
        txjjxy,                &
        txjjz ,                &
        txtt  ,                &
        tE    ,                &
        tcountcol,             &
        tntrou,                &
        tisz,                  &
        tfix_trou1,            &
        tfix_trou2,            &
        tfam1,                 &
        tmpiid,                &
        tcol,tval)
        use iso_c_binding
        implicit none
        integer,INTENT(INOUT)::tistart, tnrows, tmpiid
        integer,INTENT(INOUT)::tntrou, tisz
        integer,INTENT(INOUT)::tfix_trou1, tfix_trou2
        logical*1,INTENT(INOUT)::tfam1
        integer::i
        real*8,INTENT(INOUT)::tval(maxlien)
        integer(C_SIZE_T),INTENT(INOUT)::tcol(maxlien)
        integer(C_SIZE_T),INTENT(INOUT),dimension(tnrows)::tcountcol
        integer(C_SIZE_T),INTENT(INOUT)::tl1(maxlien),tl2(maxlien),tktyp(maxlien)
        real*8,INTENT(INOUT)::txtt(maxlien),txjjz(maxlien),txjjxy(maxlien), tE(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)
        E (i)   = tE (i)
        enddo
        ntrou = tntrou
        isz = tisz
        FAM1 = tfam1
        fix_trou1 = tfix_trou1
        fix_trou2 = tfix_trou2
        tcol=0
        tval=0d0
        mpiid=tmpiid
        provide l1 l2 ktyp xtt xjjxy xjjz ntrou mpiid
!print *,"l1"
!print *,l1
!print *,"xjjz"
!print *,xjjz
!print *,FAM1
        call unit(tistart, tcountcol,tcol,tval)

        end
initial commit 2016-12-19 23:26:16 +01:00			`subroutine unit_l1(tl1,&`
			`tl2, &`
			`tktyp, &`
			`tistart, &`
			`tnrows, &`
			`txjjxy, &`
			`txjjz , &`
			`txtt , &`
many new features: 1. added wf printing support 2. fixed problem with factorial calculation 2018-01-29 16:21:56 +01:00			`tE , &`
initial commit 2016-12-19 23:26:16 +01:00			`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, &`
Added some improvements to printing by adding mpiid. Printing is now done only by the master. 2020-03-16 14:00:26 +01:00			`tmpiid, &`
initial commit 2016-12-19 23:26:16 +01:00			`tcol,tval)`
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`
Added some improvements to printing by adding mpiid. Printing is now done only by the master. 2020-03-16 14:00:26 +01:00			`integer,INTENT(INOUT)::tistart, tnrows, tmpiid`
now limit the hole movement by giving range 2018-01-28 11:05:08 +01:00			`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)`
looks like now it works for natom > 16 2018-01-29 00:10:47 +01:00			`integer(C_SIZE_T),INTENT(INOUT)::tcol(maxlien)`
			`integer(C_SIZE_T),INTENT(INOUT),dimension(tnrows)::tcountcol`
			`integer(C_SIZE_T),INTENT(INOUT)::tl1(maxlien),tl2(maxlien),tktyp(maxlien)`
many new features: 1. added wf printing support 2. fixed problem with factorial calculation 2018-01-29 16:21:56 +01:00			`real*8,INTENT(INOUT)::txtt(maxlien),txjjz(maxlien),txjjxy(maxlien), tE(maxlien)`
initial commit 2016-12-19 23:26:16 +01:00
			`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)`
many new features: 1. added wf printing support 2. fixed problem with factorial calculation 2018-01-29 16:21:56 +01:00			`E (i) = tE (i)`
initial commit 2016-12-19 23:26:16 +01:00			`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`
Added some improvements to printing by adding mpiid. Printing is now done only by the master. 2020-03-16 14:00:26 +01:00			`mpiid=tmpiid`
			`provide l1 l2 ktyp xtt xjjxy xjjz ntrou mpiid`
initial commit 2016-12-19 23:26:16 +01:00			`!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`