Lines Matching refs:numts
64 integer :: numts, numphavg, its, isize, sumts, totsumts, debug local
75 numts=-1
83 read(24,*) numts
100 call MPI_Bcast(numts,1,MPI_INTEGER,0,MPI_COMM_WORLD, ierr)
101 allocate(tablets(numts,2)) ; tablets=-1
105 do its=1,numts
111 write(*,*) 'There are ',numts, 'restart files to read for ybar'
145 isize=2*numts
172 do its=1,numts
332 if(its == numts) then
451 call Write_AcuStat(myrank, tablets(1,1), tablets(numts,1),
456 & 'd', nshg2, ndofvort, tablets(numts,1))
460 call write_error(myrank, tablets(numts,1), nshg2, ndoferrors,
465 & qybarcumul, 'd', nshg2, ndofybar, tablets(numts,1))
471 & tablets(numts,1))
477 & 'd', nshg2, 1, tablets(numts,1))