Lines Matching refs:nshg2
68 integer :: nshg2,ndof2 local
220 nshg2=intfromfile(1) !Do not use nshg and ndof from common.h here!
230 allocate( qybarcumul(nshg2,ndofybar) ) ; qybarcumul = 0.d0
233 allocate( qread(nshg2,ndofybar) ) ; qread = 0.d0
234 iqsiz = nshg2*ndofybar
254 nshg2=intfromfile(1)
264 allocate( qerrorcumul(nshg2,ndoferrors) ) ; qerrorcumul = 0.d0
267 allocate( qread(nshg2,ndoferrors) ) ; qread = 0.d0
268 iqsiz=nshg2*ndoferrors
302 nshg2=intfromfile(1) !Do not use nshg and ndof from common.h here!
312 allocate( qyphbarcumul(nshg2,ndofyphbar,numphavg) )
316 allocate( qread(nshg2,ndofyphbar) ) ; qread = 0.d0
317 iqsiz = nshg2*ndofyphbar
346 nshg2=intfromfile(1)
348 allocate( qold(nshg2,ndof2) )
351 allocate( qread(nshg2,ndof2) ) ; qread = 0.d0
352 iqsiz=nshg2*ndof2
355 qold(1:nshg2,1:ndof2) = qread(1:nshg2,1:ndof2)
374 nshg2=intfromfile(1)
376 allocate( qvorticity(nshg2,ndofvort) )
378 allocate( qread(nshg2,ndofvort) ) ; qread = 0.d0
379 iqsiz=nshg2*ndofvort
382 qvorticity(1:nshg2,1:ndofvort) = qread(1:nshg2,1:ndofvort)
402 nshg2=intfromfile(1)
403 allocate( dwal(nshg2) )
405 allocate( qread1(nshg2) ) ; qread1 = 0.d0
406 iqsiz=nshg2*1
409 dwal(1:nshg2) = qread1(1:nshg2)
452 & totsumts, nshg2, ndof2, qold)
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))
470 & numphavg,qyphbarcumul(:,:,iphavg),'d',nshg2,ndofyphbar,
477 & 'd', nshg2, 1, tablets(numts,1))