- In write counter, create_directory already perform check on

restart directory


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

Modules/xml_io_base.f90

@@ -354,6 +354,8 @@ MODULE xml_io_base
       !
       dirname = restart_dir( outdir, wunit )
       !
+      CALL create_directory( TRIM( dirname ) )
+      !
       IF ( ionode ) THEN
          !
          filename = TRIM( dirname ) // '/print_counter.xml'
@@ -362,17 +364,6 @@ MODULE xml_io_base
                              & ROOT = "PRINT_COUNTER",  IERR = ierr )
          !
       END IF
-
-      CALL mp_bcast( ierr, ionode_id, intra_image_comm )
-
-      IF ( ierr > 0 ) THEN
-         ! try to create the restart directory if non-existent
-         CALL create_directory( TRIM( dirname ) )
-         IF ( ionode ) THEN
-            CALL iotk_open_write( iunpun, FILE = filename, &
-                                & ROOT = "PRINT_COUNTER", IERR = ierr )
-         END IF
-      END IF
       !
       CALL mp_bcast( ierr, ionode_id, intra_image_comm )
       !