2018-01-29 00:10:47 +01:00
|
|
|
use iso_c_binding
|
|
|
|
BEGIN_PROVIDER [integer(C_SIZE_T), nt1]
|
2016-12-19 23:26:16 +01:00
|
|
|
BEGIN_DOC
|
|
|
|
! calculates the number of det the 3's moving
|
|
|
|
END_DOC
|
|
|
|
implicit none
|
2018-01-29 00:10:47 +01:00
|
|
|
integer(C_SIZE_T)::natom2
|
2016-12-19 23:26:16 +01:00
|
|
|
|
|
|
|
! call combin(idet1(1,nt1+1),natom,ntrou,nt1,32,jrangmax)
|
|
|
|
natom2=natom
|
2018-01-28 11:05:08 +01:00
|
|
|
if(FAM1) then
|
|
|
|
if(fix_trou1 .eq. fix_trou2) then
|
|
|
|
natom2=natom/2
|
|
|
|
else
|
|
|
|
natom2 = fix_trou2 - fix_trou1
|
|
|
|
endif
|
|
|
|
endif
|
2020-03-05 15:25:26 +01:00
|
|
|
nt1= nint(gamma(1.0*(natom2+1))/(gamma(1.0*(natom2-ntrou+1))*gamma(1.0*(ntrou+1))),selected_int_kind(16))
|
2020-03-16 14:00:26 +01:00
|
|
|
if(mpiid==0)then
|
|
|
|
write(6,*)'nt1',nt1
|
|
|
|
endif
|
2016-12-19 23:26:16 +01:00
|
|
|
END_PROVIDER
|