Home
last modified time | relevance | path

Searched refs:indexg (Results 1 – 6 of 6) sorted by relevance

/dports/cad/alliance/alliance/src/mbk/src/
H A Dalc_driv_l.c201 long index, indexg ,indexd, indexs, indexb; local
269 indexg = 0L;
271 indexg = tmpnum->DATA ;
281 if(indexd !=0L || indexg !=0L || indexs !=0L || indexb !=0l)
283 (void)fprintf(in,",%ld,%ld,%ld,%ld",indexd, indexg, indexs, indexb);
/dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/texas/
H A Dspec_destiny.F77 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
160 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
302 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
806 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
904 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
1067 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
1355 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
1407 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
1546 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
1820 subroutine indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
H A Ddestdul.f88 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/texas/
H A Dspec_destiny.F77 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
160 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
302 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
806 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
904 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
1067 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
1355 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
1407 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
1546 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
1820 subroutine indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
H A Ddestdul.f88 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
/dports/science/PETSc/petsc-3.14.1/src/ksp/ksp/tutorials/
H A Dex59.c341 PetscInt *indexg,*cols,*colsg; in ComputeSubdomainMatrix() local
348 ierr = PetscMalloc1(i,&indexg);CHKERRQ(ierr); in ComputeSubdomainMatrix()
361 indexg[ii]=k*xloc*yloc+j*xloc+i; in ComputeSubdomainMatrix()
366 ierr = ISCreateGeneral(PETSC_COMM_SELF,ii,indexg,PETSC_COPY_VALUES,&submatIS);CHKERRQ(ierr); in ComputeSubdomainMatrix()
427 indexg[ii] = kg*dd.xm_l*dd.ym_l+jg*dd.xm_l+ig; in ComputeSubdomainMatrix()
434 for (k=0; k<j; k++) colsg[k] = indexg[cols[k]]; in ComputeSubdomainMatrix()
435 ierr = MatSetValues(temp_local_mat,1,&indexg[i],j,colsg,vals,ADD_VALUES);CHKERRQ(ierr); in ComputeSubdomainMatrix()
441 ierr = PetscFree(indexg);CHKERRQ(ierr); in ComputeSubdomainMatrix()