if (lprint) then
write (iout,*) "Partition of work between processors"
- do i=0,nprocs-1
- write (iout,'(a,i5,a,i7,a,i7,a,i7)')
- & "Processor",i," indstart",indstart(i),
- & " indend",indend(i)," count",scount(i)
- enddo
- endif
+C do i=0,nprocs-1
+C write (iout,'(a,i5,a,i7,a,i7,a,i7)')
+C & "Processor",i," indstart",indstart(i),
+C & " indend",indend(i)," count",scount(i)
+C enddo
+ endif
+ write(iout,*) "just before leave"
return
end
#endif