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