Commit 0f1a6bc5 authored by Robin Hilgers's avatar Robin Hilgers

Fixed Typo and made it even greater.

parent 4581d7a1
...@@ -103,7 +103,7 @@ CONTAINS ...@@ -103,7 +103,7 @@ CONTAINS
IF (mpi%irank == 0) THEN 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 IF (sliceplot%iplot.NE.0) THEN
CALL timestart("Plotting") CALL timestart("Plotting")
IF (input%strho) CALL juDFT_error("strho = T and iplot=/=0",calledby = "optional") IF (input%strho) CALL juDFT_error("strho = T and iplot=/=0",calledby = "optional")
......
...@@ -38,7 +38,7 @@ CONTAINS ...@@ -38,7 +38,7 @@ CONTAINS
INTEGER n INTEGER n
REAL rdum REAL rdum
! .. Local Arrays .. ! .. Local Arrays ..
INTEGER i(42),ierr(3) INTEGER i(43),ierr(3)
REAL r(34) REAL r(34)
LOGICAL l(46) LOGICAL l(46)
! .. ! ..
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment