Searched refs:ndofyphbar (Results 1 – 3 of 3) sorted by relevance
| /phasta/M2N/src/ |
| H A D | readnblk.f | 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
[all …]
|
| /phasta/M2NFixBnd/src/ |
| H A D | readnblk.f | 431 ndofyphbar=0
446 ndofyphbar=intfromfile(2)
449 if(ndofyphbar.ne.0) then
452 allocate( yphbar(nshg,ndofyphbar,numphavg) )
456 allocate( qread(nshg2,ndofyphbar) )
457 iqsiz = nshg2*ndofyphbar
460 yphbar(1:nshg2,1:ndofyphbar,iphavg) =
461 & qread(1:nshg2,1:ndofyphbar)
645 & ndofyphbar, 'in '//char(0))
647 & ndofyphbar, 'out'//char(0))
[all …]
|
| /phasta/AcuStat/src/ |
| H A D | readnblk.f | 58 integer :: ndof, ndoferrors, ndofybar, ndofyphbar local
303 ndofyphbar=intfromfile(2)
312 allocate( qyphbarcumul(nshg2,ndofyphbar,numphavg) )
316 allocate( qread(nshg2,ndofyphbar) ) ; qread = 0.d0
317 iqsiz = nshg2*ndofyphbar
470 & numphavg,qyphbarcumul(:,:,iphavg),'d',nshg2,ndofyphbar,
|