/dports/math/spooles-mpich/spooles.2.2/FrontMtx/src/ |
H A D | split.c | 27 int *colindJ, *colindUJ, *colindUJK, *colmap, *indicesUJ, in FrontMtx_splitUpperMatrices() local 100 SubMtx_columnIndices(mtxUJ, &ncolUJ, &colindUJ) ; in FrontMtx_splitUpperMatrices() 104 IVfprintf(msgFile, ncolUJ, colindUJ) ; in FrontMtx_splitUpperMatrices() 109 if ( (K = colmap[colindUJ[0]]) == colmap[colindUJ[ncolUJ-1]] ) { in FrontMtx_splitUpperMatrices() 122 colindUJ[ii] = locmap[colindUJ[ii]] ; in FrontMtx_splitUpperMatrices() 152 K = colmap[colindUJ[0]] ; in FrontMtx_splitUpperMatrices() 158 colindUJ[jcol], colmap[colindUJ[jcol]]); in FrontMtx_splitUpperMatrices() 162 if ( jcol == ncolUJ || K != colmap[colindUJ[jcol]] ) { in FrontMtx_splitUpperMatrices() 218 colindUJK[ii] = locmap[colindUJ[jj]] ; in FrontMtx_splitUpperMatrices() 246 K = colmap[colindUJ[jcol]] ; in FrontMtx_splitUpperMatrices()
|
H A D | permute.c | 119 int *map, *colindJ, *colindUJ ; in FrontMtx_permuteUpperMatrices() local 139 SubMtx_columnIndices(mtxUJ, &ncolUJ, &colindUJ) ; in FrontMtx_permuteUpperMatrices() 141 if ( colindJ[ii] != colindUJ[jj] ) { in FrontMtx_permuteUpperMatrices() 150 colindUJ[ii] = map[colindUJ[ii]] ; in FrontMtx_permuteUpperMatrices() 154 colindUJ[ii] = colindJ[colindUJ[ii]] ; in FrontMtx_permuteUpperMatrices()
|
/dports/math/spooles-mpich/spooles.2.2_SHARED/FrontMtx/src/ |
H A D | split.c | 27 int *colindJ, *colindUJ, *colindUJK, *colmap, *indicesUJ, in FrontMtx_splitUpperMatrices() local 100 SubMtx_columnIndices(mtxUJ, &ncolUJ, &colindUJ) ; in FrontMtx_splitUpperMatrices() 104 IVfprintf(msgFile, ncolUJ, colindUJ) ; in FrontMtx_splitUpperMatrices() 109 if ( (K = colmap[colindUJ[0]]) == colmap[colindUJ[ncolUJ-1]] ) { in FrontMtx_splitUpperMatrices() 122 colindUJ[ii] = locmap[colindUJ[ii]] ; in FrontMtx_splitUpperMatrices() 152 K = colmap[colindUJ[0]] ; in FrontMtx_splitUpperMatrices() 158 colindUJ[jcol], colmap[colindUJ[jcol]]); in FrontMtx_splitUpperMatrices() 162 if ( jcol == ncolUJ || K != colmap[colindUJ[jcol]] ) { in FrontMtx_splitUpperMatrices() 218 colindUJK[ii] = locmap[colindUJ[jj]] ; in FrontMtx_splitUpperMatrices() 246 K = colmap[colindUJ[jcol]] ; in FrontMtx_splitUpperMatrices()
|
H A D | permute.c | 119 int *map, *colindJ, *colindUJ ; in FrontMtx_permuteUpperMatrices() local 139 SubMtx_columnIndices(mtxUJ, &ncolUJ, &colindUJ) ; in FrontMtx_permuteUpperMatrices() 141 if ( colindJ[ii] != colindUJ[jj] ) { in FrontMtx_permuteUpperMatrices() 150 colindUJ[ii] = map[colindUJ[ii]] ; in FrontMtx_permuteUpperMatrices() 154 colindUJ[ii] = colindJ[colindUJ[ii]] ; in FrontMtx_permuteUpperMatrices()
|
/dports/math/spooles/spooles.2.2_SHARED/FrontMtx/src/ |
H A D | split.c | 27 int *colindJ, *colindUJ, *colindUJK, *colmap, *indicesUJ, in FrontMtx_splitUpperMatrices() local 100 SubMtx_columnIndices(mtxUJ, &ncolUJ, &colindUJ) ; in FrontMtx_splitUpperMatrices() 104 IVfprintf(msgFile, ncolUJ, colindUJ) ; in FrontMtx_splitUpperMatrices() 109 if ( (K = colmap[colindUJ[0]]) == colmap[colindUJ[ncolUJ-1]] ) { in FrontMtx_splitUpperMatrices() 122 colindUJ[ii] = locmap[colindUJ[ii]] ; in FrontMtx_splitUpperMatrices() 152 K = colmap[colindUJ[0]] ; in FrontMtx_splitUpperMatrices() 158 colindUJ[jcol], colmap[colindUJ[jcol]]); in FrontMtx_splitUpperMatrices() 162 if ( jcol == ncolUJ || K != colmap[colindUJ[jcol]] ) { in FrontMtx_splitUpperMatrices() 218 colindUJK[ii] = locmap[colindUJ[jj]] ; in FrontMtx_splitUpperMatrices() 246 K = colmap[colindUJ[jcol]] ; in FrontMtx_splitUpperMatrices()
|
H A D | permute.c | 119 int *map, *colindJ, *colindUJ ; in FrontMtx_permuteUpperMatrices() local 139 SubMtx_columnIndices(mtxUJ, &ncolUJ, &colindUJ) ; in FrontMtx_permuteUpperMatrices() 141 if ( colindJ[ii] != colindUJ[jj] ) { in FrontMtx_permuteUpperMatrices() 150 colindUJ[ii] = map[colindUJ[ii]] ; in FrontMtx_permuteUpperMatrices() 154 colindUJ[ii] = colindJ[colindUJ[ii]] ; in FrontMtx_permuteUpperMatrices()
|
/dports/math/spooles/spooles.2.2/FrontMtx/src/ |
H A D | split.c | 27 int *colindJ, *colindUJ, *colindUJK, *colmap, *indicesUJ, in FrontMtx_splitUpperMatrices() local 100 SubMtx_columnIndices(mtxUJ, &ncolUJ, &colindUJ) ; in FrontMtx_splitUpperMatrices() 104 IVfprintf(msgFile, ncolUJ, colindUJ) ; in FrontMtx_splitUpperMatrices() 109 if ( (K = colmap[colindUJ[0]]) == colmap[colindUJ[ncolUJ-1]] ) { in FrontMtx_splitUpperMatrices() 122 colindUJ[ii] = locmap[colindUJ[ii]] ; in FrontMtx_splitUpperMatrices() 152 K = colmap[colindUJ[0]] ; in FrontMtx_splitUpperMatrices() 158 colindUJ[jcol], colmap[colindUJ[jcol]]); in FrontMtx_splitUpperMatrices() 162 if ( jcol == ncolUJ || K != colmap[colindUJ[jcol]] ) { in FrontMtx_splitUpperMatrices() 218 colindUJK[ii] = locmap[colindUJ[jj]] ; in FrontMtx_splitUpperMatrices() 246 K = colmap[colindUJ[jcol]] ; in FrontMtx_splitUpperMatrices()
|
H A D | permute.c | 119 int *map, *colindJ, *colindUJ ; in FrontMtx_permuteUpperMatrices() local 139 SubMtx_columnIndices(mtxUJ, &ncolUJ, &colindUJ) ; in FrontMtx_permuteUpperMatrices() 141 if ( colindJ[ii] != colindUJ[jj] ) { in FrontMtx_permuteUpperMatrices() 150 colindUJ[ii] = map[colindUJ[ii]] ; in FrontMtx_permuteUpperMatrices() 154 colindUJ[ii] = colindJ[colindUJ[ii]] ; in FrontMtx_permuteUpperMatrices()
|