Commit 0d58a5af authored by Govoni's avatar Govoni
Browse files

wfreq_db instead of xml.

parent d29dfa85
......@@ -22,7 +22,7 @@ fetch_namelist.o \
cubefile.o \
pdep_io.o \
pdep_db.o \
write_xml.o \
wfreq_db.o \
mod_west_io.o \
wfreq_io.o \
wfreq_restart.o
......
This diff is collapsed.
......@@ -175,7 +175,7 @@ MODULE wfreq_center
COMPLEX(DP),ALLOCATABLE :: sigma_sc_eks (:,:)
COMPLEX(DP),ALLOCATABLE :: sigma_sc_eqplin (:,:)
COMPLEX(DP),ALLOCATABLE :: sigma_sc_eqpsec (:,:)
INTEGER,ALLOCATABLE :: sigma_diff (:,:)
REAL(DP),ALLOCATABLE :: sigma_diff (:,:)
COMPLEX(DP),ALLOCATABLE :: sigma_spectralf (:,:,:)
REAL(DP),ALLOCATABLE :: sigma_freq (:)
!
......
......@@ -55,7 +55,7 @@ SUBROUTINE solve_qp_gamma(l_secant,l_generate_plot)
USE distribution_center, ONLY : pert,ifr,rfr,aband
USE bar, ONLY : bar_type,start_bar_type,update_bar_type,stop_bar_type
USE wfreq_io, ONLY : readin_overlap,readin_solvegfreq,readin_solvehf
USE write_xml, ONLY : wfreq_xml_dump
USE wfreq_db, ONLY : wfreq_db_write
!
IMPLICIT NONE
!
......@@ -568,7 +568,7 @@ SUBROUTINE solve_qp_gamma(l_secant,l_generate_plot)
!
DEALLOCATE( sigma_hf )
!
CALL wfreq_xml_dump( )
CALL wfreq_db_write( )
!
CALL stop_clock( "solve_qp" )
!
......@@ -600,7 +600,7 @@ SUBROUTINE solve_qp_k(l_secant,l_generate_plot)
USE distribution_center, ONLY : pert,ifr,rfr,aband
USE bar, ONLY : bar_type,start_bar_type,update_bar_type,stop_bar_type
USE wfreq_io, ONLY : readin_overlap,readin_solvegfreq,readin_solvehf
USE write_xml, ONLY : wfreq_xml_dump
USE wfreq_db, ONLY : wfreq_db_write
!
IMPLICIT NONE
!
......@@ -1109,7 +1109,7 @@ SUBROUTINE solve_qp_k(l_secant,l_generate_plot)
!
DEALLOCATE( sigma_hf )
!
CALL wfreq_xml_dump( )
CALL wfreq_db_write( )
!
CALL stop_clock( "solve_qp" )
!
......
Markdown is supported
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