Lines Matching refs:tablets
69 integer, allocatable :: tablets(:,:) local
101 allocate(tablets(numts,2)) ; tablets=-1
106 read(24,*) tablets(its,1), tablets(its,2)
146 call MPI_Bcast(tablets,isize,MPI_INTEGER,0,MPI_COMM_WORLD, ierr)
177 timestep = tablets(its,1)
178 sumts = tablets(its,2)
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))
483 deallocate(tablets)