NEB: Fix file number padding (Vedran Miletic)

svn-origin-rev: 15867

Author: oschuett

src/motion/neb_io.F

@@ -531,7 +531,7 @@ FUNCTION get_replica_project_name(rep_env, n_rep, j) RESULT(replica_proj_name)
     ! Setup new replica project name and output file
     replica_proj_name = rep_env%original_project_name
     ! Find padding
-    ndigits = CEILING(LOG10(REAL(n_rep,KIND=dp)))-&
+    ndigits = CEILING(LOG10(REAL(n_rep+1,KIND=dp)))-&
          CEILING(LOG10(REAL(j+1,KIND=dp)))
     padding = ""
     DO i = 1, ndigits