Commit 7b829fe0 authored by Daniel Wortmann's avatar Daniel Wortmann

removed additinal IO for irank.ne.0

parent 2c0e5755
......@@ -51,7 +51,7 @@ CONTAINS
TYPE(t_potden) :: workden,denRot
WRITE (6,FMT=8000)
if (mpi%irank==0) WRITE (6,FMT=8000)
8000 FORMAT (/,/,t10,' p o t e n t i a l g e n e r a t o r',/)
......
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