31         msglvl, nextphi, nPhi, nPsi, nV, phi, phi0, phi1, phi2, phi3,   in GPart_domSegMap()  local
78 ndom = nPhi = 0 ;  in GPart_domSegMap()
87       nPhi++ ;  in GPart_domSegMap()
95    fprintf(msgFile, "\n %d domains, %d Phi vertices", ndom, nPhi) ;  in GPart_domSegMap()
112 PhiToV = IVinit(nPhi, -1) ;  in GPart_domSegMap()
120 if ( phi != nPhi ) {  in GPart_domSegMap()
124            gpart, pndom, pnseg, phi, nPhi) ;  in GPart_domSegMap()
128    fprintf(msgFile, "\n PhiToV(%d) :", nPhi) ;  in GPart_domSegMap()
129    IVfp80(msgFile, nPhi, PhiToV, 15, &ierr) ;  in GPart_domSegMap()
146 if ( nPhi >= ndom ) {  in GPart_domSegMap()
147    list = IVinit(nPhi, -1) ;  in GPart_domSegMap()
152 IVL_init1(PhiByPowD, IVL_CHUNKED, nPhi) ;  in GPart_domSegMap()
153 for ( phi = 0 ; phi < nPhi ; phi++ ) {  in GPart_domSegMap()
194 IVL_init1(PhiByPhi, IVL_CHUNKED, nPhi) ;  in GPart_domSegMap()
195 offsets = IVinit(nPhi,  0)  ;  in GPart_domSegMap()
196 head    = IVinit(nPhi, -1) ;  in GPart_domSegMap()
197 link    = IVinit(nPhi, -1) ;  in GPart_domSegMap()
198 for ( phi1 = 0 ; phi1 < nPhi ; phi1++ ) {  in GPart_domSegMap()
327 PhiToPsi = IVinit(nPhi, -1) ;  in GPart_domSegMap()
329 for ( phi = 0 ; phi < nPhi ; phi++ ) {  in GPart_domSegMap()
358    fprintf(msgFile, "\n PhiToPsi(%d) :", nPhi) ;  in GPart_domSegMap()
359    IVfp80(msgFile, nPhi, PhiToPsi, 15, &ierr) ;  in GPart_domSegMap()
370 IVfill(nPhi, link, -1) ;  in GPart_domSegMap()
371 for ( phi = 0 ; phi < nPhi ; phi++ ) {  in GPart_domSegMap()
399    fprintf(msgFile, "\n PsiByPowD(%d) :", nPhi) ;  in GPart_domSegMap()
417    fprintf(msgFile, "\n PsiToSigma(%d) :", nPhi) ;  in GPart_domSegMap()