Fixed Typo and made it even greater.

main/optional.F90

@@ -103,7 +103,7 @@ CONTAINS
 
        
     IF (mpi%irank == 0) THEN
-       IF (sliceplot%plpot.NE.0) input%score = .FALSE.
+       IF (sliceplot%plpot) input%score = .FALSE.
        IF (sliceplot%iplot.NE.0) THEN
           CALL timestart("Plotting")
           IF (input%strho) CALL juDFT_error("strho = T and iplot=/=0",calledby = "optional")

mpi/mpi_bc_all.F90

@@ -38,7 +38,7 @@ CONTAINS
     INTEGER n
     REAL rdum
     !     .. Local Arrays ..
-    INTEGER i(42),ierr(3)
+    INTEGER i(43),ierr(3)
     REAL    r(34)
     LOGICAL l(46)
     !     ..