default values for mpime neb_comm in neb.f90 where missing. deallocate error with g95 in read_pseudo for msh array solved with an if allocated

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

Modules/read_pseudo.f90

@@ -66,7 +66,7 @@ SUBROUTINE readpp ( input_dft, printout )
         CALL nullify_radial_grid( rgrid( nt ) )
      END DO
      DEALLOCATE( rgrid )
-     DEALLOCATE( msh )
+     if(allocated(msh)) DEALLOCATE( msh )
   END IF
 
   ALLOCATE( rgrid( ntyp ), msh( ntyp ) )

NEB/src/neb.f90

@@ -55,7 +55,7 @@ PROGRAM neb
   INTEGER :: i, iimage
   CHARACTER(len=10) :: a_tmp
   !
-  INTEGER :: mpime, nproc, neb_comm
+  INTEGER :: mpime = 0, nproc = 1, neb_comm = 0
   INTEGER :: root = 0 
   !
   CHARACTER(len=256) :: parsing_file_name