Commit 4ef40980 authored by Alexander Neukirchen's avatar Alexander Neukirchen
Browse files

Temporary!

parent f8e4a802
......@@ -16,6 +16,7 @@ MODULE m_dfpt
use m_jp2ndOrdQuant, only : CalcIIEnerg2
use m_jpSetupDynMat, only : SetupDynamicMatrix
use m_jpProcessDynMat!, only : DiagonalizeDynMat, CalculateFrequencies
use m_juDFT_stop, only : juDFT_error
IMPLICIT NONE
......@@ -116,6 +117,10 @@ CONTAINS
INTEGER :: ngdp, iSpin, iType, iR, ilh
#ifndef CPP_FFTW
call juDFT_error('juPhon is only usable with fftw support.', calledby='dfpt')
#endif
WRITE (oUnit,*) '------------------------------------------------------'
WRITE (oUnit,*) 'This output is generated by juPhon, FLEURs DFPT addon.'
WRITE (oUnit,*) 'l_dfpt = ', juPhon%l_dfpt
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment