Searched refs:qread1 (Results 1 – 2 of 2) sorted by relevance
| /phasta/AcuStat/src/ |
| H A D | readnblk.f | 42 real*8, allocatable :: qread1(:) local
405 allocate( qread1(nshg2) ) ; qread1 = 0.d0
407 call readdatablock(descriptor,fname1//char(0),qread1,
409 dwal(1:nshg2) = qread1(1:nshg2)
410 deallocate(qread1)
|
| /phasta/M2NFixBnd/src/ |
| H A D | readnblk.f | 43 real*8, allocatable :: xread(:,:), qread(:,:), qread1(:) local
533 allocate( qread1(nshg2) )
535 call readdatablock(descriptor,fname1//char(0),qread1,iqsiz,
537 dwal(1:nshg2)=qread1(1:nshg2)
538 deallocate(qread1)
|