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 )
|
CALL invfft ('tgWave', psis, dffts )
|
||||||
#else
|
#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 )
|
CALL invfft('Wave', psis, dffts )
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue