Tweaked debug output

src/read_controlling_parameters.f90

@@ -113,26 +113,26 @@ case ('main')
   ! Input values are now written to stdout or log files here
   if (params%debug.gt.0 .and. iproc.eq.0) then
     write(*,'(a)')      shift//'Input controlling parameters:'
-    write(*,'(a,l1)') shift//'irestart',params%irestart
-    write(*,'(a,a)')  shift//'restartfile',trim(params%restartfile)
-    write(*,'(a,i3)') shift//'ns',params%ns
-    write(*,'(a,i3)') shift//'nmat',params%nmat
-    write(*,'(a,i3)') shift//'nboxes',params%nboxes
-    write(*,'(a,i3)') shift//'nsections',params%nsections
-    write(*,'(a,l1)') shift//'doDoRuRe',params%doDoRuRe
+    write(*,'(a,l1)') shift//'irestart ',params%irestart
+    write(*,'(a,a)')  shift//'restartfile ',trim(params%restartfile)
+    write(*,'(a,i3)') shift//'ns ',params%ns
+    write(*,'(a,i3)') shift//'nmat ',params%nmat
+    write(*,'(a,i3)') shift//'nboxes ',params%nboxes
+    write(*,'(a,i3)') shift//'nsections ',params%nsections
+    write(*,'(a,l1)') shift//'doDoRuRe ',params%doDoRuRe
   endif
   if (params%debug.gt.1) then
-    write(threadinfo%Logunit,'(a16,l1)') 'irestart',params%irestart
-    write(threadinfo%Logunit,'(a16,a)')  'restartfile',trim(params%restartfile)
-    write(threadinfo%Logunit,'(a16,i3)') 'ns',params%ns
-    write(threadinfo%Logunit,'(a16,i3)') 'nmat',params%nmat
-    write(threadinfo%Logunit,'(a16,i3)') 'nboxes',params%nboxes
-    write(threadinfo%Logunit,'(a16,i3)') 'nsections',params%nsections
-    write(threadinfo%Logunit,'(a16,l1)') 'doDoRuRe',params%doDoRuRe
+    write(threadinfo%Logunit,'(a16,l1)') 'irestart ',params%irestart
+    write(threadinfo%Logunit,'(a16,a)')  'restartfile ',trim(params%restartfile)
+    write(threadinfo%Logunit,'(a16,i3)') 'ns ',params%ns
+    write(threadinfo%Logunit,'(a16,i3)') 'nmat ',params%nmat
+    write(threadinfo%Logunit,'(a16,i3)') 'nboxes ',params%nboxes
+    write(threadinfo%Logunit,'(a16,i3)') 'nsections ',params%nsections
+    write(threadinfo%Logunit,'(a16,l1)') 'doDoRuRe ',params%doDoRuRe
   endif
 
 end select
 
-if (iproc.eq.0) call system ('rm fort.8')
+!if (iproc.eq.0) call system ('rm fort.8')
 
 end subroutine read_controlling_parameters