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)
1135         call local ( lesP, Ptemp, ien, nPs, 'gather  ' )
1144      &                    + xGoC(1:npro,i0+1,j) * Ptemp(:,j,nPs)
1147      &                    + xGoC(1:npro,i0+2,j) * Ptemp(:,j,nPs)
1150      &                    + xGoC(1:npro,i0+3,j) * Ptemp(:,j,nPs) 
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)       
1182         call local ( lesP, Ptemp, ien, nPs, 'gather  ' )
1217      &                   + xGoC(1:npro,i0+1,j) * Ptemp(:,j,nPs)
1219      &                   + xGoC(1:npro,i0+2,j) * Ptemp(:,j,nPs)
1221      &                   + xGoC(1:npro,i0+3,j) * Ptemp(:,j,nPs)
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)
1251         call local ( lesP, Ptemp, ien, nPs, 'gather  ' )
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)
1294 	call local ( lesP, Ptemp, ien, nPs, 'gather  ')
1321      &                      + xGoC(1:npro,i0,j) * Ptemp(:,j,nPs)
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)
1353  	call local ( lesP, Ptemp, ien, nPs, 'gather  ' )
1388      &                   + xGoC(1:npro,i0+1,j) * Ptemp(:,j,nPs)
1390      &                   + xGoC(1:npro,i0+2,j) * Ptemp(:,j,nPs)
1392      &                   + xGoC(1:npro,i0+3,j) * Ptemp(:,j,nPs)
1420      &                      + xGoC(1:npro,i0,j) * Ptemp(:,j,nPs)
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)
1475         call local ( lesP, Ptemp, ien, nPs, 'gather  ')
1483      &                     + xTe(1:npro,i,j) * Ptemp(:,j,nPs)