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