mirror of https://gitlab.com/QEF/q-e.git
call sequence to c2psi_gamma made consistent with soubroutine definition
This commit is contained in:
parent
02db055030
commit
761dd6f6bf
|
@ -443,7 +443,7 @@
|
|||
|
||||
CALL invfft ('tgWave', psis, dffts )
|
||||
#else
|
||||
CALL c2psi_gamma( psis, c_bgrp( 1, i ), c_bgrp( 1, i+1 ), dffts )
|
||||
CALL c2psi_gamma( dffts, psis, c_bgrp( 1, i ), c_bgrp( 1, i+1 ) )
|
||||
|
||||
CALL invfft('Wave', psis, dffts )
|
||||
|
||||
|
|
Loading…
Reference in New Issue