Format cleanup

src/define_ov.f90

@@ -92,13 +92,13 @@ if (params%irestart.eq.0) then
    call octreev_shrink_xyz(ov, threadinfo)
 
    ! now that ov%nnode is known we can allocate the others
-   allocate (ov%unode(ov%nnode),stat=threadinfo%err)    ;  call heap (threadinfo,'ov%unode','define_ov',size(ov%unode),'dp',+1)
-   allocate (ov%vnode(ov%nnode),stat=threadinfo%err)    ;  call heap (threadinfo,'ov%vnode','define_ov',size(ov%vnode),'dp',+1)
-   allocate (ov%wnode(ov%nnode),stat=threadinfo%err)    ;  call heap (threadinfo,'ov%wnode','define_ov',size(ov%wnode),'dp',+1)
+   allocate (ov%unode(ov%nnode),stat=threadinfo%err)       ;  call heap (threadinfo,'ov%unode','define_ov',size(ov%unode),'dp',+1)
+   allocate (ov%vnode(ov%nnode),stat=threadinfo%err)       ;  call heap (threadinfo,'ov%vnode','define_ov',size(ov%vnode),'dp',+1)
+   allocate (ov%wnode(ov%nnode),stat=threadinfo%err)       ;  call heap (threadinfo,'ov%wnode','define_ov',size(ov%wnode),'dp',+1)
    allocate (ov%wnodeiso(ov%nnode),stat=threadinfo%err)    ;  call heap (threadinfo,'ov%wnodeiso','define_ov',size(ov%wnodeiso),'dp',+1)
-   allocate (ov%temp(ov%nnode),stat=threadinfo%err)     ;  call heap (threadinfo,'ov%temp','define_ov',size(ov%temp),'dp',+1)
+   allocate (ov%temp(ov%nnode),stat=threadinfo%err)        ;  call heap (threadinfo,'ov%temp','define_ov',size(ov%temp),'dp',+1)
    ! Line below added by dwhipp - 12/09
-   allocate (ov%pressure(ov%nleaves),stat=threadinfo%err) ; call heap (threadinfo,'ov%pressure','define_ov',size(ov%pressure),'dp',+1)
+   allocate (ov%pressure(ov%nleaves),stat=threadinfo%err)  ; call heap (threadinfo,'ov%pressure','define_ov',size(ov%pressure),'dp',+1)
    ! Line below added by dwhipp - 12/09 
    allocate (ov%spressure(ov%nleaves),stat=threadinfo%err) ; call heap (threadinfo,'ov%spressure','define_ov',size(ov%spressure),'dp',+1)
    allocate (ov%temporary_nodal_pressure(ov%nnode),stat=threadinfo%err)
@@ -150,7 +150,7 @@ else
                ov%unode(i),     &
                ov%vnode(i),     &
                ov%wnode(i),     &
-               ov%wnodeiso(i),   &
+               ov%wnodeiso(i),  &
                (xlsf,j=1,nlsf), &
                ov%temp(i),      &
                ov%temporary_nodal_pressure(i), &