Lines Matching refs:nshl
24 int nshl = shpdat.nshl; in fillsparsecpetscs() local
25 double* mb = (double*) malloc(sizeof(double)*nshl*nshl); //block to insert in fillsparsecpetscs()
27 PetscInt* locat = (PetscInt*) malloc(sizeof(PetscInt)*nshl); in fillsparsecpetscs()
30 for(aa=0;aa<nshl;aa++) locat[aa]=ieng[e+npro*aa]-1; in fillsparsecpetscs()
32 for (i=0; i<nshl; i++) { // fill up Ke with respective egmass in fillsparsecpetscs()
33 for (j=0; j<nshl; j++) { in fillsparsecpetscs()
34 mb[nshl*i + j] = EGmass[e + npro*(i + nshl*j)]; in fillsparsecpetscs()
39 petsc_nshl = (PetscInt) nshl; in fillsparsecpetscs()
48 int nshl = shpdat.nshl; in fillsparsecpetscc() local
53 PetscInt* locat = (PetscInt*) malloc(sizeof(PetscInt)*nshl); in fillsparsecpetscc()
56 for(aa=0;aa<nshl;aa++) locat[aa]=ieng[e+npro*aa]-1; in fillsparsecpetscc()
65 petsc_nshl = (PetscInt) nshl; in fillsparsecpetscc()