Lines Matching refs:ndofyphbar
68 integer :: ndofdwal,ndofybar,ndoferrors,ndofyphbar,ndofvort local
445 ndofyphbar=0
460 ndofyphbar=intfromfile(2)
463 if(ndofyphbar.ne.0) then
466 allocate( yphbar(nshg,ndofyphbar,numphavg) )
469 allocate( qread(nshg,ndofyphbar) ) ; qread = 0.d0
470 iqsiz = nshg*ndofyphbar
770 allocate(yphbarN(nshgN,ndofyphbar,numphavg)) ! size of my final mapped field array
818 & +(numphavg*ndofyphbar)+ndofvort+ndofdwal
876 do idof=1,ndofyphbar
936 do idof=1,ndofyphbar
938 & (iphavg-1)*ndofyphbar+idof
948 & numphavg*ndofyphbar+idof
956 & numphavg*ndofyphbar+ndofvort+1
999 do idof=1,ndofyphbar
1001 & (iphavg-1)*ndofyphbar+idof
1011 & numphavg*ndofyphbar+idof
1019 & numphavg*ndofyphbar+ndofvort+1
1440 & nshgN,ndofyphbar,lstep)