mirror of
https://github.com/LCPQ/DEHam
synced 2024-10-10 01:53:11 +02:00
11 lines
355 B
FortranFixed
11 lines
355 B
FortranFixed
|
BEGIN_PROVIDER [integer(kind=selected_int_kind(16)), nt2]
|
||
|
BEGIN_DOC
|
||
|
! calculates the number of det the 1's moving
|
||
|
END_DOC
|
||
|
|
||
|
|
||
|
! call combin(idet2(1,nt2+1),natrest,ial0,nt2,32,jrangmax)
|
||
|
nt2= nint(gamma(real(natom-ntrou+1,16))/((gamma(real(nalpha+1,16))*gamma(real(nbeta+1,16)))),selected_int_kind(16))
|
||
|
print *,"nt2=",nt2
|
||
|
END_PROVIDER
|