Lines Matching refs:icountN
61 integer :: icountN(numpe) ! integers read from headers local
667 icountN=0
670 icountN(ifileN)=icountN(ifileN)+1
694 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 transfer
967 allocate(qsend(icountN(irN+1)*numvar))
1025 if(ifill .ne. icountN(irN+1)) then
1027 & ifill, icountN(irN+1)
1110 if(icountN(l).gt.0) then ! I have data to write for rank l
1144 if(icountN(l).gt.0) then ! I have data to write for rank l
1146 write(700+l) icountN(l), ndof
1148 write(700+l,*) icountN(l), ndof
1170 if(icountN(l).gt.0) then ! I have data to write for rank l
1172 write(700+l) icountN(l), ione
1174 write(700+l,*) icountN(l), ione
1195 if(icountN(l).gt.0) close(700+l)