Did I forget something in my previous commit ... ?

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@10114 c92efa57-630b-4861-b058-cf58834340f0

NEB/src/input.f90

@@ -193,7 +193,6 @@ SUBROUTINE verify_neb_tmpdir( tmp_dir )
   USE mp_global,        ONLY : mpime, nproc
   USE io_global,        ONLY : meta_ionode
   USE mp,               ONLY : mp_barrier
-  USE xml_io_base,      ONLY : copy_file
   !
   IMPLICIT NONE
   !

NEB/src/make.depend

@@ -36,7 +36,6 @@ input.o : ../../Modules/kind.o
 input.o : ../../Modules/mp.o
 input.o : ../../Modules/mp_global.o
 input.o : ../../Modules/wrappers.o
-input.o : ../../Modules/xml_io_base.o
 input.o : path_input_parameters_module.o
 input.o : path_variables.o
 neb.o : ../../Modules/check_stop.o

PHonon/PH/check_initial_status.f90

@@ -1,5 +1,5 @@
 !
-! Copyright (C) 2001-2008 Quantum ESPRESSO group
+! Copyright (C) 2012-2013 Quantum ESPRESSO group
 ! This file is distributed under the terms of the
 ! GNU General Public License. See the file `License'
 ! in the root directory of the present distribution,
@@ -478,14 +478,14 @@ SUBROUTINE check_initial_status(auxdyn)
    USE disp,      ONLY : nqs
    USE grid_irr_iq,  ONLY : comp_irr_iq, irr_iq
    USE el_phon,     ONLY : elph
-   USE xml_io_base, ONLY : copy_file
+   USE wrappers,  ONLY : f_copy
    USE mp,        ONLY : mp_barrier
    USE mp_global, ONLY : my_image_id, nimage, intra_image_comm
    USE io_global, ONLY : stdout, ionode
 
    IMPLICIT NONE
 
-   INTEGER :: iq, irr
+   INTEGER :: iq, irr, ios
    LOGICAL :: exst
    CHARACTER(LEN=256) :: file_input, file_output
    CHARACTER(LEN=6), EXTERNAL :: int_to_char
@@ -508,7 +508,7 @@ SUBROUTINE check_initial_status(auxdyn)
                     &    // '.' // TRIM(int_to_char(irr)) // '.xml'
 
             INQUIRE (FILE = TRIM(file_input), EXIST = exst)
-            IF (exst) CALL copy_file(file_input, file_output)
+            IF (exst) ios = f_copy(file_input, file_output)
             IF ( elph .AND. irr>0 ) THEN
 
                file_input=TRIM( tmp_dir_ph ) // &
@@ -522,7 +522,7 @@ SUBROUTINE check_initial_status(auxdyn)
                     &    // '.' // TRIM(int_to_char(irr)) // '.xml'
 
                INQUIRE (FILE = TRIM(file_input), EXIST = exst)
-               IF (exst) CALL copy_file(file_input, file_output)
+               IF (exst) ios = f_copy(file_input, file_output)
             ENDIF
          ENDIF
       ENDDO

PHonon/PH/make.depend

@@ -208,6 +208,7 @@ check_initial_status.o : ../../Modules/io_global.o
 check_initial_status.o : ../../Modules/ions_base.o
 check_initial_status.o : ../../Modules/mp.o
 check_initial_status.o : ../../Modules/mp_global.o
+check_initial_status.o : ../../Modules/wrappers.o
 check_initial_status.o : ../../Modules/xml_io_base.o
 check_initial_status.o : ../../PW/src/io_rho_xml.o
 check_initial_status.o : ../../PW/src/pwcom.o