| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | mafillsmcsas.f | 96 do i=1,nzs(2)
97 au(nzs(3)+i)=au(i)
98 aub(nzs(3)+i)=aub(i)
160 & s(jj,ll),jj,ll,nzs)
162 & s(jj,ll),jj,ll,nzs)
378 & i0,i0,nzs)
386 & i0,i0,nzs)
395 & i0,i0,nzs)
500 & i0,i0,nzs)
508 & i0,i0,nzs)
[all …]
|
| H A D | add_rect.c | 48 double **au_rp,ITG **irow_rp,ITG * jq_r,ITG *nzs){ in add_rect() argument
76 insertas_ws(&irow,&row1,&m,&ifree,nzs,&value,&autmp); in add_rect()
81 insertas_ws(&irow,&row1,&m,&ifree,nzs,&au_1[pt1],&autmp); in add_rect()
84 insertas_ws(&irow,&row2,&m,&ifree,nzs,&au_2[pt2],&autmp); in add_rect()
91 insertas_ws(&irow,&irow_1[pt1],&m,&ifree,nzs,&au_1[pt1],&autmp); in add_rect()
95 insertas_ws(&irow,&irow_2[pt2],&m,&ifree,nzs,&au_2[pt2],&autmp); in add_rect()
103 *nzs=ifree-1; in add_rect()
104 RENEW(irow,ITG,*nzs); in add_rect()
105 RENEW(autmp,double,*nzs); in add_rect()
|
| H A D | multimortar.c | 476 nzs_nn=*nzs/8.0; in multimortar()
477 nzs_nm=*nzs/8.0; in multimortar()
478 nzs_ni=*nzs/8.0; in multimortar()
479 nzs_na=*nzs/8.0; in multimortar()
480 nzs_mn=*nzs/8.0; in multimortar()
481 nzs_mm=*nzs/8.0; in multimortar()
482 nzs_mi=*nzs/8.0; in multimortar()
483 nzs_ma=*nzs/8.0; in multimortar()
1252 nzs_sym=*nzs; in multimortar()
1256 *nzs=*nzsc; in multimortar()
[all …]
|
| H A D | modifympc.f | 132 nzs=0
145 jq(nnodestet)=nzs+1
149 nzs=nzs+1
150 irow(nzs)=nodempc(1,index)
152 au(nzs)=coefmpc(index)
153 irowt(nzs)=nnodestet
154 loc(nzs)=nzs
158 jq(nnodestet+1)=nzs+1
204 do j=1,nzs
218 do m=1,nzs
[all …]
|
| H A D | preiter.c | 24 ITG *neq, ITG *nzs, ITG *isolver, ITG *iperturb){ in preiter() argument
43 NNEW(irow_save,ITG,*nzs); in preiter()
45 for(i=0;i<*nzs;++i){ in preiter()
56 ndim=*neq+*nzs; in preiter()
62 k=*nzs; in preiter()
69 k=*nzs; in preiter()
98 RENEW(irow,ITG,*nzs); in preiter()
100 for(i=0;i<*nzs;++i){ in preiter()
|
| H A D | matrixsort.c | 39 ITG *nzs,ITG *ndim){ in matrixsort() argument
50 FORTRAN(isortiid,(mast1,irow,au,nzs,&kflag)); in matrixsort()
57 if(j==*nzs){ in matrixsort()
59 jq[k]=*nzs+1; in matrixsort()
72 if(j==*nzs) break; in matrixsort()
77 jq[*ndim]=*nzs+1; in matrixsort()
|
| H A D | massless.c | 97 ITG *irow, ITG *neq, ITG *nzs, double **auwp, ITG **jqwp, in massless() argument
161 NNEW(irowbb, ITG, nzs[0]); in massless()
164 NNEW(aubi, double, nzs[0]); in massless()
165 NNEW(irowbi, ITG, nzs[0]); in massless()
168 NNEW(auib, double, nzs[0]); in massless()
169 NNEW(irowib, ITG, nzs[0]); in massless()
212 preiter(ad, &au, gapnorm, &icolbb, &irow, neq, nzs, isolver, iperturb); in massless()
216 sgapdof_main(ad,au,adb,aub,&sigma,g,icolbb,irow,neq,nzs,token); in massless()
223 tau(ad,&au,adb,aub,&sigma,g,icolbb,&irow,neq,nzs); in massless()
238 pastix_main(ad,au,adb,aub,&sigma,gapdof,icolbb,irow,neq,nzs, in massless()
[all …]
|
| H A D | dudsmain.c | 46 ITG *icol,ITG *irow,ITG *jq,ITG *neq,ITG *nzs,double *df,ITG *jqs, in dudsmain() argument
110 spooles_factor(ad,au,adb,aub,&sigma,icol,irow,&neq[1],&nzs[1], in dudsmain()
111 &symmetryflag,&inputformat,&nzs[2]); in dudsmain()
120 sgi_factor(ad,au,adb,aub,&sigma,icol,irow,&neq[1],&nzs[1],token); in dudsmain()
128 tau_factor(ad,&au,adb,aub,&sigma,icol,&irow,&neq[1],&nzs[1]); in dudsmain()
136 pardiso_factor(ad,au,adb,aub,&sigma,icol,irow,&neq[1],&nzs[1], in dudsmain()
137 &symmetryflag,&inputformat,jq,&nzs[2]); in dudsmain()
145 pastix_factor_main(ad,au,adb,aub,&sigma,icol,irow,&neq[1],&nzs[1], in dudsmain()
146 &symmetryflag,&inputformat,jq,&nzs[2]); in dudsmain()
|
| H A D | remastructar.c | 31 ITG *neq, ITG *nzs,ITG *nmethod, ITG *ithermal, in remastructar() argument
65 if(nzs[1]<10) nzs[1]=10; in remastructar()
66 NNEW(mast1,ITG,nzs[1]); in remastructar()
67 RENEW(irow,ITG,nzs[1]); in remastructar()
75 ikmpc,ilmpc,ipointer,nzs,nmethod,ithermal, in remastructar()
85 neq,ikmpc,ilmpc,ipointer,nzs,nmethod, in remastructar()
90 RENEW(irow,ITG,nzs[2]); in remastructar()
|
| H A D | pastix.h | 19 ITG *neq, ITG *nzs,ITG *symmetryflag,ITG *inputformat,ITG *jq,
24 ITG *neq, ITG *nzs,ITG *symmetryflag,ITG *inputformat,
29 ITG *neq, ITG *nzs,ITG *symmetryflag,ITG *inputformat,
34 ITG *neq, ITG *nzs,ITG *symmetryflag,ITG *inputformat,
41 ITG *neq, ITG *nzs, ITG *symmetryflag, ITG *inputformat,
46 ITG *neq, ITG *nzs, ITG *symmetryflag, ITG *inputformat,
51 ITG *neq, ITG *nzs, ITG *symmetryflag, ITG *inputformat,
56 ITG *neq, ITG *nzs,ITG *symmetryflag,ITG *inputformat,
|
| H A D | spooles_read.f | 20 & nzs,symmetryflag,inputformat,nzs3) argument
24 integer icol(*),irow(*),neq,nzs,symmetryflag,inputformat,nzs3,i local
30 read(18,101) neq,nzs,symmetryflag,inputformat,nzs3
35 do i=1,nzs
44 do i=1,nzs
|
| H A D | spooles_write.f | 20 & nzs,symmetryflag,inputformat,nzs3) argument
24 integer icol(*),irow(*),neq,nzs,symmetryflag,inputformat,nzs3,i local
30 write(18,101) neq,nzs,symmetryflag,inputformat,nzs3
35 do i=1,nzs
44 do i=1,nzs
|
| H A D | remastructem.c | 31 ITG *neq, ITG *nzs,ITG *nmethod, double **fp, in remastructem() argument
67 if(nzs[1]<10) nzs[1]=10; in remastructem()
68 NNEW(mast1,ITG,nzs[1]); in remastructem()
70 RENEW(irow,ITG,nzs[1]); in remastructem()
74 ikmpc,ilmpc,ipointer,nzs,ithermal,mi,ielmat,elcon, in remastructem()
78 RENEW(irow,ITG,nzs[2]); in remastructem()
93 RENEW(aub,double,nzs[1]);for(i=0;i<nzs[1];i++) aub[i]=0.; in remastructem()
|
| H A D | multi_rect.c | 47 double **au_rp,ITG **irow_rp,ITG * jq_r,ITG *nzs){ in multi_rect() argument
74 if(flag!=0) insertas_ws(&irow,&l,&m,&ifree,nzs,&value,&autmp); in multi_rect()
82 *nzs=ifree-1; in multi_rect()
83 RENEW(autmp,double,*nzs); in multi_rect()
84 RENEW(irow,ITG,*nzs); in multi_rect()
|
| H A D | remastruct.c | 31 ITG *neq, ITG *nzs,ITG *nmethod, double **fp, in remastruct() argument
75 if(nzs[1]<10) nzs[1]=10; in remastruct()
76 NNEW(mast1,ITG,nzs[1]); in remastruct()
102 ikmpc,ilmpc,ipointer,nzs,nmethod,ithermal, in remastruct()
114 ikmpc,ilmpc,ipointer,nzs,nmethod,ithermal, in remastruct()
120 RENEW(irow,ITG,nzs[2]); in remastruct()
151 RENEW(aub,double,nzs[1]);for(i=0;i<nzs[1];i++) aub[i]=0.; in remastruct()
|
| H A D | predgmres_struct_mt.c | 26 ITG *neq, ITG *nzs, ITG *symmetryflag, ITG *inputformat, in predgmres_struct_mt() argument
102 RENEW(au,double,2**nzs); in predgmres_struct_mt()
103 memcpy(&au[*nzs],&au[0],sizeof(double)**nzs); in predgmres_struct_mt()
110 ndim=*nzs; in predgmres_struct_mt()
175 ndim=*neq+2**nzs; in predgmres_struct_mt()
197 RENEW(au,double,*nzs); in predgmres_struct_mt()
207 ndim=*neq+*nzs; in predgmres_struct_mt()
279 ndim=*nzs; in predgmres_struct_mt()
344 ndim=*neq+2**nzs; in predgmres_struct_mt()
|
| H A D | mafillsmmain.c | 183 NNEW(au1,double,(long long)num_cpus*nzs[2]); in mafillsmmain()
287 for(i=0;i<nzs[2];i++){ in mafillsmmain()
294 for(i=0;i<nzs[2];i++){ in mafillsmmain()
299 for(i=0;i<nzs[2];i++){ in mafillsmmain()
301 au[i]+=au1[i+(long long)j*nzs[2]]; in mafillsmmain()
334 for(i=nzs[0];i<nzs[1];i++){ in mafillsmmain()
337 for(i=nzs[0];i<nzs[1];i++){ in mafillsmmain()
339 aub[i]+=aub1[i+(long long)j*nzs[1]]; in mafillsmmain()
356 for(i=0;i<nzs[0];i++){ in mafillsmmain()
359 for(i=0;i<nzs[0];i++){ in mafillsmmain()
[all …]
|
| H A D | sgi.c | 31 ITG *neq, ITG *nzs, ITG token){ in sgi_factor() argument
43 ndim=*neq+*nzs; in sgi_factor()
50 l=*nzs; in sgi_factor()
115 ITG *neq, ITG *nzs, ITG token){ in sgi_main() argument
120 neq,nzs,token); in sgi_main()
|
| H A D | pardiso_as.c | 36 ITG *neq, ITG *nzs, ITG *jq){ in pardiso_factor_as() argument
74 ndim=*neq+(long long)2**nzs; in pardiso_factor_as()
119 aupardisoas[k]=au[j+*nzs-1]; in pardiso_factor_as()
154 aupardisoas[k]=au[j+*nzs-1]-*sigma*aub[j+*nzs-1]; in pardiso_factor_as()
213 ITG *neq, ITG *nzs, ITG *jq){ in pardiso_main_as() argument
218 neq,nzs,jq); in pardiso_main_as()
|
| H A D | convert2slapcol.f | 25 subroutine convert2slapcol(au,ad,jq,nzs,nef,aua) argument
29 integer jq(*),nzs,nef,i,j,k local
34 k=nzs+nef
|
| H A D | pastix.c | 162 ITG *neq, ITG *nzs, ITG *symmetryflag, ITG *inputformat, in pastix_init() argument
266 ITG *neq, ITG *nzs, ITG *symmetryflag, ITG *inputformat, in pastix_csc_conversion() argument
459 NNEW(irowPrev,ITG,*nzs); in pastix_csc_conversion()
463 memcpy(irowPrev, irow, sizeof(ITG) * *nzs); in pastix_csc_conversion()
466 nzsTotal = *nzs; in pastix_csc_conversion()
467 nzsPrev = *nzs; in pastix_csc_conversion()
920 ITG *neq, ITG *nzs,ITG *symmetryflag,ITG *inputformat, in pastix_main_generic() argument
984 neq,nzs,symmetryflag,inputformat,jq,nzs3); in pastix_main_generic()
1035 neq,nzs,symmetryflag,inputformat,jq,nzs3); in pastix_main_generic()
1042 neq,nzs,symmetryflag,inputformat,jq,nzs3); in pastix_main_generic()
[all …]
|
| H A D | preconvert2slapcol.f | 25 subroutine preconvert2slapcol(irow,ia,jq,ja,nzs,nef) argument
29 integer irow(*),ia(*),jq(*),ja(*),nzs,nef,i,j,k local
33 k=nzs+nef
|
| H A D | mafillsmasmain.c | 58 double *sti,ITG *nzs,double *stx,double *adb,double *aub, in mafillsmasmain() argument
128 isiz=nzs[1];cpypardou(&au[nzs[2]],au,&isiz,&num_cpus); in mafillsmasmain()
133 isiz=nzs[1];cpypardou(&aub[nzs[2]],aub,&isiz,&num_cpus); in mafillsmasmain()
179 NNEW(au1,double,(long long)num_cpus*(nzs[2]+nzs[1])); in mafillsmasmain()
204 nzs1=nzs;stx1=stx;adb1=adb;aub1=aub;iexpl1=iexpl;plicon1=plicon; in mafillsmasmain()
244 for(i=0;i<(nzs[2]+nzs[1]);i++){ in mafillsmasmain()
246 au[i]+=au1[i+(long long)j*(nzs[2]+nzs[1])]; in mafillsmasmain()
|
| /dports/math/miracl/miracl-5.6/ |
| H A D | zzn2.cpp | 300 int i,j,nb,n,nbw,nzs; in pow() local
321 n=window(k,i,&nbw,&nzs,5); in pow()
325 if (nzs) in pow()
327 for (j=0;j<nzs;j++) u*=u; in pow()
328 i-=nzs; in pow()
338 int i,j,nb,n,nbw,nzs; in powu() local
365 n=naf_window(k,k3,i,&nbw,&nzs,11); in powu()
371 if (nzs) in powu()
373 for (j=0;j<nzs;j++) u*=u; in powu()
374 i-=nzs; in powu()
|
| /dports/science/afni/afni-AFNI_21.3.16/src/ |
| H A D | 1dGentimes.c | 24 int iarg , ii,nzs ; in main() local
92 for( nzs=ii=0 ; ii < gim->nvox ; ii++ ) if( gar[ii] <= 0.0f ) nzs++ ; in main()
93 if( nzs > 0 ) ERROR_exit("Found %d non-positive values in gap file %s",nzs,gnam) ; in main()
|