Searched refs:rcount (Results 1 – 1 of 1) sorted by relevance
3 real*8, allocatable :: rcount(:) variable11 allocate (rcount(nshg))18 if( allocated(rcount) ) then19 deallocate(rcount)34 rcount=one38 rcount(i) = rcount(i) + one42 if(rcount(k).ne.one) then43 rcount(k)=one/rcount(k)