Home
last modified time | relevance | path

Searched refs:qread (Results 1 – 4 of 4) sorted by relevance

/phasta/AcuStat/src/
H A Dreadnblk.f41 real*8, allocatable :: xread(:,:),qread(:,:) local
233 allocate( qread(nshg2,ndofybar) ) ; qread = 0.d0
235 call readdatablock(descriptor,fname1//char(0),qread,iqsiz,
239 qybarcumul(:,:) = qybarcumul(:,:) + qread (:,:)*sumts
240 deallocate(qread)
267 allocate( qread(nshg2,ndoferrors) ) ; qread = 0.d0
269 call readdatablock(descriptor,fname1//char(0),qread,iqsiz,
273 qerrorcumul(:,:) = qerrorcumul(:,:) + qread(:,:)*sumts
274 deallocate(qread)
316 allocate( qread(nshg2,ndofyphbar) ) ; qread = 0.d0
[all …]
/phasta/M2NFixBnd/src/
H A Dreadnblk.f43 real*8, allocatable :: xread(:,:), qread(:,:), qread1(:) local
333 allocate( qread(nshg2,ndof2) )
344 call readdatablock(descriptor,fname1//char(0),qread,iqsiz,
346 qold(1:nshg2,1:ndof2)=qread(1:nshg2,1:ndof2)
347 deallocate(qread)
382 allocate( qread(nshg2,ndofybar) )
385 call readdatablock(descriptor,fname1//char(0) ,qread,iqsiz,
387 ybar(1:nshg2,1:ndofybar)=qread(1:nshg2,1:ndofybar)
388 deallocate(qread)
413 allocate( qread(nshg2,ndoferrors) )
[all …]
/phasta/M2N/src/
H A Dreadnblk.f44 real*8, allocatable :: xread(:,:), qread(:,:), acread(:,:) local
354 allocate( qread(nshg,ndof2) )
356 call readdatablock(descriptor,fname1//char(0),qread,iqsiz,
358 qold(:,1:ndof)=qread(:,1:ndof)
359 deallocate(qread)
469 allocate( qread(nshg,ndofyphbar) ) ; qread = 0.d0
471 call readdatablock(descriptor,fname1//char(0),qread,iqsiz,
473 yphbar(:,:,iphavg) = qread(:,:)
474 deallocate(qread)
/phasta/phSolver/common/
H A Dreadnblk.f42 real*8, target, allocatable :: xread(:,:), qread(:,:), acread(:,:) local
509 allocate( qread(nshg,ndof2) )
513 & c_loc(qread),iqsiz, dataDbl,iotype)
514 qold(:,1:ndof)=qread(:,1:ndof)
515 deallocate(qread)