/dports/cad/alliance/alliance/src/mbk/src/ |
H A D | alc_driv_l.c | 201 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 D | spec_destiny.F | 77 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 D | destdul.f | 88 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/texas/ |
H A D | spec_destiny.F | 77 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 D | destdul.f | 88 call indexg(inx,ics,jcs,kcs,lcs,ijcs,klcs,
|
/dports/science/PETSc/petsc-3.14.1/src/ksp/ksp/tutorials/ |
H A D | ex59.c | 341 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()
|