Change Ejd(iLooper)%unit(:) from ALLOCATABLE to POINTER. (same with Pred(iLooper)%unit(:)), pathtmp)
Create a seperate cache of these unit(:) allocations that represent your working set.
Then have your parallel do loop rotate the use of the pointers (allocating or reallocating only when necessary).
Note, each thread can have its own cache of these allocations.
Microsoft Office 2010 is actually the newest software from microsoft office 2010 keys Microsoft Corporation introduced in the last year. Its leading aims tend to be to catch the present business requirements and to be on top of every competition with regard to the international market criteria. This can be a very good idea to obtain Microsoft Office 2010 Key immediately to maintain norton antivirus keys yourself up-to-date and to present you with the vast qualified progress opportunities for success. Microsoft Office 2010 is available in both 32-bit and 64-bit editions, but attention please the two are not able to co-exist on the very same personal computer. All of the Office 2010 editions are kaspersky antivirus keys suitable for Windows XP SP3, Windows Vista and Windows 7.