Add missing initalization of archiveType in main/mix.F90

main/fleur.F90

@@ -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

main/mix.F90

@@ -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