scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

oops.

This commit is contained in:
Paolo Umari 2020-07-28 15:44:02 +02:00
parent fbd79b9e28
commit 131417c20f
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
GWW/simple/simple.f90
View File

@ -47,7 +47,7 @@ program simple
!
NAMELIST /inputsimple/ prefix,outdir,num_nbndv,num_val,num_cond,s_bands, &
& s_product,l_truncated_coulomb,truncation_radius,nkpoints,numpw,&
& l_debug,n_debug,w_type,epsm,lambdam,prefix_small, nonlocal_commutator,&
& l_debug,n_debug,w_type,epsm,lambdam, nonlocal_commutator,&
& calc_mode, n_shrink
!
CALL mp_startup ( )
@ -83,7 +83,6 @@ program simple
CALL mp_bcast(w_type, ionode_id, world_comm)
CALL mp_bcast(epsm, ionode_id, world_comm)
CALL mp_bcast(lambdam, ionode_id, world_comm)
CALL mp_bcast(prefix_small, ionode_id, world_comm)
CALL mp_bcast(nonlocal_commutator, ionode_id, world_comm)
CALL mp_bcast(calc_mode, ionode_id, world_comm)
CALL mp_bcast(n_shrink, ionode_id, world_comm)