Searched refs:icountN (Results 1 – 1 of 1) sorted by relevance
61 integer :: icountN(numpe) ! integers read from headers local667 icountN=0670 icountN(ifileN)=icountN(ifileN)+1694 write(*,926) myrank, (icountN(j),j=1,irankN)833 ifill = icountN(irN+1)966 if (icountN(irN+1) .gt. 0) then !there are data to transfer967 allocate(qsend(icountN(irN+1)*numvar))1025 if(ifill .ne. icountN(irN+1)) then1027 & ifill, icountN(irN+1)1110 if(icountN(l).gt.0) then ! I have data to write for rank l[all …]