call sequence to c2psi_gamma made consistent with soubroutine definition

This commit is contained in:
Stefano de Gironcoli 2018-01-02 11:18:48 +01:00
parent 02db055030
commit 761dd6f6bf
1 changed files with 1 additions and 1 deletions

View File

@ -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 )