Commit be9ae2bb authored by Gregor Michalicek's avatar Gregor Michalicek

Add missing initalization of archiveType in main/mix.F90

parent 2c6549f3
...@@ -675,10 +675,10 @@ CONTAINS ...@@ -675,10 +675,10 @@ CONTAINS
! !
CALL timestart("mixing") CALL timestart("mixing")
IF (mpi%irank==0) WRITE(*,"(a)",advance="no") "* Mixing distance: " IF (mpi%irank==0) WRITE(*,"(a)",advance="no") "* Mixing distance: "
CALL mix(stars,atoms,sphhar,vacuum,input,sym,cell,noco,oneD,hybrid,inDen,outDen,results,mixDen) CALL mix(stars,atoms,sphhar,vacuum,input,sym,cell,noco,oneD,hybrid,archiveType,inDen,outDen,results,mixDen)
inDen = mixDen inDen = mixDen
!
CALL timestop("mixing") CALL timestop("mixing")
WRITE (6,FMT=8130) it WRITE (6,FMT=8130) it
WRITE (16,FMT=8130) it WRITE (16,FMT=8130) it
IF (mpi%irank==0) THEN IF (mpi%irank==0) THEN
......
...@@ -16,7 +16,7 @@ MODULE m_mix ...@@ -16,7 +16,7 @@ MODULE m_mix
CONTAINS CONTAINS
SUBROUTINE mix(stars,atoms,sphhar,vacuum,input,sym,cell,noco,oneD,& SUBROUTINE mix(stars,atoms,sphhar,vacuum,input,sym,cell,noco,oneD,&
hybrid,inDen,outDen,results,mixDen) hybrid,archiveType,inDen,outDen,results,mixDen)
#include"cpp_double.h" #include"cpp_double.h"
...@@ -47,12 +47,13 @@ SUBROUTINE mix(stars,atoms,sphhar,vacuum,input,sym,cell,noco,oneD,& ...@@ -47,12 +47,13 @@ SUBROUTINE mix(stars,atoms,sphhar,vacuum,input,sym,cell,noco,oneD,&
TYPE(t_potden),INTENT(IN) :: inDen, outDen TYPE(t_potden),INTENT(IN) :: inDen, outDen
TYPE(t_results),INTENT(INOUT) :: results TYPE(t_results),INTENT(INOUT) :: results
TYPE(t_potden),INTENT(INOUT) :: mixDen TYPE(t_potden),INTENT(INOUT) :: mixDen
INTEGER, INTENT(IN) :: archiveType
!Local Scalars !Local Scalars
REAL fix,intfac,vacfac REAL fix,intfac,vacfac
INTEGER i,iter,imap,js,mit,irecl INTEGER i,iter,imap,js,mit,irecl
INTEGER mmap,mmaph,nmaph,nmap,mapmt,mapvac,mapvac2 INTEGER mmap,mmaph,nmaph,nmap,mapmt,mapvac,mapvac2
INTEGER iofl,archiveType,n_u_keep INTEGER iofl,n_u_keep
LOGICAL lexist,l_ldaU LOGICAL lexist,l_ldaU
!Local Arrays !Local Arrays
......
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