| H A D | ftools.f | 1120 subroutine flesApG ( ien, xGoC, lesP, lesQ, nPs, nQs ) argument 1125 real*8 lesP(nshg,nPs), lesQ(nshg,nQs) local 1157 call local ( lesQ, Qtemp, ien, nQs, 'scatter ' ) 1166 subroutine flesApKG ( ien, xKebe, xGoC, lesP, lesQ, nPs, nQs ) argument 1173 real*8 lesP(nshg,nPs), lesQ(nshg,nQs) local 1228 call local ( lesQ, Qtemp, ien, nQs, 'scatter ' ) 1237 subroutine flesApNGt ( ien, xGoC, lesP, lesQ, nPs, nQs ) argument 1242 real*8 lesP(nshg,nPs), lesQ(nshg,nQs) local 1271 call local ( lesQ, Qtemp, ien, nQs, 'scatter ' ) 1280 subroutine flesApNGtC ( ien, xGoC, lesP, lesQ, nPs, nQs ) argument [all …]
|