10
0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 20:34:58 +01:00
This commit is contained in:
Anthony Scemama 2021-04-26 22:24:07 +02:00
parent 6231812e57
commit 0459eb475a

View File

@ -103,7 +103,7 @@ subroutine run_pt2_slave_small(thread,iproc,energy)
if (n_tasks == 0) exit if (n_tasks == 0) exit
do k=1,n_tasks do k=1,n_tasks
read (task(k),*) subset(k), i_generator(k), N call sscanf_ddd(task(k), subset(k), i_generator(k), N)
enddo enddo
if (b%N == 0) then if (b%N == 0) then
! Only first time ! Only first time
@ -220,7 +220,7 @@ subroutine run_pt2_slave_large(thread,iproc,energy)
endif endif
if (n_tasks == 0) exit if (n_tasks == 0) exit
read (task,*) subset, i_generator(1), N call sscanf_ddd(task, subset, i_generator(1), N)
if (b%N == 0) then if (b%N == 0) then
! Only first time ! Only first time
bsize = min(N, (elec_alpha_num * (mo_num-elec_alpha_num))**2) bsize = min(N, (elec_alpha_num * (mo_num-elec_alpha_num))**2)