Home
last modified time | relevance | path

Searched refs:nshg2 (Results 1 – 5 of 5) sorted by relevance

/phasta/AcuStat/src/ !
H A Dreadnblk.f68 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!
[all …]
/phasta/M2NFixBnd/src/ !
H A Dreadnblk.f327 nshg2=intfromfile(1)
333 allocate( qread(nshg2,ndof2) )
335 if (nshg2 .ne. nshg) then
337 & //' on rank', myrank, ' :',nshg,nshg2,
342 iqsiz=nshg2*ndof2
346 qold(1:nshg2,1:ndof2)=qread(1:nshg2,1:ndof2)
376 nshg2=intfromfile(1)
382 allocate( qread(nshg2,ndofybar) )
384 iqsiz=nshg2*ndofybar
387 ybar(1:nshg2,1:ndofybar)=qread(1:nshg2,1:ndofybar)
[all …]
/phasta/phSolver/common/ !
H A Dreadnblk.f501 nshg2=intfromfile(1)
507 if (nshg2 .ne. nshg)
538 nshg2=intfromfile(1)
542 if (nshg2 .ne. nshg)
569 nshg2=intfromfile(1)
576 if (nshg2 .ne. nshg)
H A Drwvelb.f54 read (irstin) mach2, nshg2, lstep2
/phasta/M2N/src/ !
H A Dreadnblk.f344 nshg2=intfromfile(1)
347 if(nshg2.ne.nshg) then
349 & 'from the geombc and restart files',nshg,nshg2
599 nshg2=intfromfile(1)
623 nshg2=intfromfile(1)