LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-21 11:03:29 +01:00
Code Releases Activity

scanf

Browse Source
This commit is contained in:
Anthony Scemama 2021-04-26 22:24:07 +02:00
parent 6231812e57
commit 0459eb475a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/cipsi/run_pt2_slave.irp.f
View File

@ -103,7 +103,7 @@ subroutine run_pt2_slave_small(thread,iproc,energy)
if (n_tasks == 0) exit
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
if (b%N == 0) then
! Only first time
@ -220,7 +220,7 @@ subroutine run_pt2_slave_large(thread,iproc,energy)
endif
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
! Only first time
bsize = min(N, (elec_alpha_num * (mo_num-elec_alpha_num))**2)