1120 	subroutine flesApG ( ien, xGoC, lesP, lesQ, nPs, nQs )  argument
1125         real*8 lesP(nshg,nPs), lesQ(nshg,nQs) 
1127         dimension Ptemp(npro,nshl,nPs), Qtemp(npro,nshl,nQs)
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)
1174         dimension Ptemp(npro,nshl,nPs), Qtemp(npro,nshl,nQs)       
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)
1243         dimension Ptemp(npro,nshl,nPs), Qtemp(npro,nshl,nQs)
1261              Qtemp(:,i,nQs) = Qtemp(:,i,nQs)
1271         call local ( lesQ, Qtemp, ien, nQs, 'scatter  ' )
1280 	subroutine flesApNGtC ( ien, xGoC, lesP, lesQ, nPs, nQs )  argument
1285         real*8 lesP(nshg,nPs), lesQ(nshg,nQs)
1286         dimension Ptemp(npro,nshl,nPs), Qtemp(npro,nshl,nQs)
1304              Qtemp(:,i,nQs) = Qtemp(:,i,nQs)
1320              Qtemp(:,i,nQs) = Qtemp(:,i,nQs)
1328         call local ( lesQ, Qtemp, ien, nQs, 'scatter  ' )
1337 	subroutine flesApFull ( ien, xKebe, xGoC, lesP, lesQ, nPs, nQs )  argument
1344         real*8 lesP(nshg,nPs), lesQ(nshg,nQs)
1345         dimension Ptemp(npro,nshl,nPs), Qtemp(npro,nshl,nQs)
1403              Qtemp(:,i,nQs) = Qtemp(:,i,nQs)
1419              Qtemp(:,i,nQs) = Qtemp(:,i,nQs)
1430         call local ( lesQ, Qtemp, ien, nQs, 'scatter ' )
1460 	subroutine flesApSclr ( ien, xTe, lesP, lesQ, nPs, nQs )  argument
1466         real*8 lesP(nshg,nPs), lesQ(nshg,nQs)
1467         dimension Ptemp(npro,nshl,nPs), Qtemp(npro,nshl,nQs)
1482             Qtemp(:,i,nQs) = Qtemp(:,i,nQs) 
1490   	call local ( lesQ, Qtemp, ien, nQs, 'scatter ' )