Searched refs:tablets (Results 1 – 1 of 1) sorted by relevance
| /phasta/AcuStat/src/ |
| H A D | readnblk.f | 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))
[all …]
|