add error message for noncolinear case

This commit is contained in:
Oscar Baseggio 2020-07-17 11:06:16 +02:00 committed by Oscar Baseggio
parent 6c6a39cbd7
commit 9542b0b894
1 changed files with 3 additions and 0 deletions

View File

@ -142,6 +142,9 @@ PROGRAM lr_eels_main
!
! Sternheimer algorithm
!
IF (noncolin) CALL errore('lr_eels_main', 'sternheimer with noncolin is not &
& yet implemented',1)
WRITE(stdout,'(/,5X,"STERNHEIMER LINEAR-RESPONSE SPECTRUM CALCULATION")')
!
WRITE(stdout,'(/5x,"Number of frequencies = ",i6)') nfs