15  	subroutine flesPrepDiag ( ien, xKebe, xGoc, flowDiag )  argument
22         integer   ien(npro,nshl)  local
41         call local (flowDiag,  Diagl, ien, nflow, 'scatter ')
1120 	subroutine flesApG ( ien, xGoC, lesP, lesQ, nPs, nQs )  argument
1126         dimension ien(npro,nshl)
1135         call local ( lesP, Ptemp, ien, nPs, 'gather  ' )
1157         call local ( lesQ, Qtemp, ien, nQs, 'scatter ' )
1166  	subroutine flesApKG ( ien, xKebe, xGoC, lesP, lesQ, nPs, nQs )  argument
1172         dimension ien(npro,nshl)
1182         call local ( lesP, Ptemp, ien, nPs, 'gather  ' )
1228         call local ( lesQ, Qtemp, ien, nQs, 'scatter ' )
1237 	subroutine flesApNGt ( ien, xGoC, lesP, lesQ, nPs, nQs )  argument
1241         dimension ien(npro,nshl), xGoC(npro,4*nshl,nshl)
1251         call local ( lesP, Ptemp, ien, nPs, 'gather  ' )
1271         call local ( lesQ, Qtemp, ien, nQs, 'scatter  ' )
1280 	subroutine flesApNGtC ( ien, xGoC, lesP, lesQ, nPs, nQs )  argument
1284         dimension ien(npro,nshl), xGoC(npro,4*nshl,nshl)
1294 	call local ( lesP, Ptemp, ien, nPs, 'gather  ')
1328         call local ( lesQ, Qtemp, ien, nQs, 'scatter  ' )
1337 	subroutine flesApFull ( ien, xKebe, xGoC, lesP, lesQ, nPs, nQs )  argument
1341         dimension ien(npro,nshl)
1353  	call local ( lesP, Ptemp, ien, nPs, 'gather  ' )
1430         call local ( lesQ, Qtemp, ien, nQs, 'scatter ' )
1439 	subroutine fsclrDiag ( ien, xTe, sclrDiag )  argument
1445         dimension ien(npro,nshl)
1451         call local (sclrDiag, Diagl, ien, 1, 'scatter ')
1460 	subroutine flesApSclr ( ien, xTe, lesP, lesQ, nPs, nQs )  argument
1465         dimension ien(npro,nshl)
1475         call local ( lesP, Ptemp, ien, nPs, 'gather  ')
1490   	call local ( lesQ, Qtemp, ien, nQs, 'scatter ' )