Trivial formatting edit

src/DOUAR.f90

@@ -173,9 +173,9 @@ call read_controlling_parameters (params,threadinfo,'main')
 !------------------------------------------------------------------------------|
 call io_DoRuRe2 (params,'init')
 
-allocate (surface         (  params%ns  ),stat=err)    ; if (err.ne.0) call stop_run ('Error alloc surface in main$')
-allocate (surface0        (  params%ns  ),stat=err)   ; if (err.ne.0) call stop_run ('Error alloc surface0 in main$')
-allocate (mat             (0:params%nmat),stat=err)    ; if (err.ne.0) call stop_run ('Error alloc mat in main$')
+allocate (surface         (  params%ns  ),stat=err); if (err.ne.0) call stop_run ('Error alloc surface in main$')
+allocate (surface0        (  params%ns  ),stat=err); if (err.ne.0) call stop_run ('Error alloc surface0 in main$')
+allocate (mat             (0:params%nmat),stat=err); if (err.ne.0) call stop_run ('Error alloc mat in main$')
 allocate (params%materialn(0:params%ns  ),stat=err); if (err.ne.0) call stop_run ('Error alloc materialn in main$')
       
 if (params%nboxes.gt.0) then
@@ -573,7 +573,7 @@ do while (istep.le.params%nstep)
       call show_time (total,step,inc,1,'Find bad faces$')
 
       osolve%nface=osolve%nleaves
-      allocate (osolve%iface(9,osolve%nface),stat=threadinfo%err)       
+      allocate (osolve%iface(9,osolve%nface),stat=threadinfo%err)
       if (params%debug.gt.1) call heap (threadinfo,'osolve%iface','main',size(osolve%iface),'int',+1)
 
       call octree_find_bad_faces (osolve%octree,osolve%noctree, &