| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | rhsnodef.f | 22 & mi,ikactmech,nactmech,ntrans,inotr,trab) argument
37 & icalccg,ikactmech(*),nactmech local
71 call nident(ikactmech,jdof-1,nactmech,
75 if(ikactmech(idm).eq.jdof-1) exit
79 ikactmech(m)=ikactmech(m-1)
81 ikactmech(idm+1)=jdof-1
111 ikactmech(m)=ikactmech(m-1)
113 ikactmech(idm+1)=jdof-1
144 ikactmech(m)=ikactmech(m-1)
146 ikactmech(idm+1)=jdof-1
[all …]
|
| H A D | merge_ikactmech1.f | 19 subroutine merge_ikactmech1(ikactmech1,nactmech1,neq,ikactmech, argument
27 integer ikactmech1(neq,*),nactmech1(*),neq,ikactmech(*), local
34 ikactmech(j)=ikactmech1(j,1)
42 call nident(ikactmech,jdof,nactmech,id)
44 if(ikactmech(id).eq.jdof) cycle
48 ikactmech(k)=ikactmech(k-1)
50 ikactmech(id+1)=jdof
|
| H A D | rhs.f | 215 ikactmech(m)=ikactmech(m-1)
217 ikactmech(idm+1)=jdof1-1
229 call nident(ikactmech,jdof1-1,nactmech,
233 if(ikactmech(idm).eq.jdof1-1) exit
237 ikactmech(m)=ikactmech(m-1)
239 ikactmech(idm+1)=jdof1-1
365 ikactmech(m)=ikactmech(m-1)
367 ikactmech(idm+1)=jdof1-1
383 if(ikactmech(idm).eq.jdof1-1) exit
387 ikactmech(m)=ikactmech(m-1)
[all …]
|
| H A D | dyna.c | 1073 NNEW(ikactmech,ITG,neq[1]); in dyna()
1174 aamech[i]+=z[i2+ikactmech[j]]*fext[ikactmech[j]]; in dyna()
1186 FORTRAN(nident,(izdof,&ikactmech[j],&nzdof,&id)); in dyna()
1188 if(izdof[id-1]==ikactmech[j]){ in dyna()
1364 if(fabs(fext[ikactmech[i]])>fextmax) fextmax=fabs(fext[ikactmech[i]]); in dyna()
1377 if(fabs(fext[ikactmech[i]]-fextold[ikactmech[i]])>fextmax) in dyna()
1378 fextmax=fabs(fext[ikactmech[i]]-fextold[ikactmech[i]]); in dyna()
1390 fextold[ikactmech[i]]=fext[ikactmech[i]]; in dyna()
1495 aamech[i]+=z[i2+ikactmech[j]]*fext[ikactmech[j]]; in dyna()
1514 FORTRAN(nident,(izdof,&ikactmech[j],&nzdof,&id)); in dyna()
[all …]
|
| H A D | rhsmain.c | 55 double *veold,char *matname,ITG *mi,ITG *ikactmech,ITG *nactmech, in rhsmain() argument
189 FORTRAN(merge_ikactmech1,(ikactmech1,nactmech1,neq,ikactmech,nactmech, in rhsmain()
197 mi,ikactmech,nactmech,ntrans,inotr,trab)); in rhsmain()
|
| H A D | steadystate.c | 90 nzse[3],mt=mi[1]+1,*ikactmech=NULL,nactmech,id,nasym=0, in steadystate() local
2398 NNEW(ikactmech,ITG,neq[1]); in steadystate()
2883 xbodyold,&reltime,veold,matname,mi,ikactmech,&nactmech, in steadystate()
2896 aa[i]+=z[i2+ikactmech[j]]*br[ikactmech[j]]; in steadystate()
2908 FORTRAN(nident,(izdof,&ikactmech[j],&nzdof,&id)); in steadystate()
2910 if(izdof[id-1]==ikactmech[j]){ in steadystate()
2911 aa[i]+=z[(long long)i*nzdof+id-1]*br[ikactmech[j]]; in steadystate()
3395 SFREE(ikactmech); in steadystate()
|
| H A D | nonlingeo.c | 113 *ime=NULL,*ikactmech=NULL,nactmech,inode,idir,neold,neini, in nonlingeo() local
2420 xbodyold,&reltime,veold,matname,mi,ikactmech, in nonlingeo()
|
| H A D | CalculiX.h | 3975 ITG *ikactmech,ITG *nactmech,ITG *num_cpu));
5209 char *matname,ITG *mi,ITG *ikactmech,ITG *nactmech,
5218 ITG *ntmat_,ITG *iperturb,ITG *mi,ITG *ikactmech,ITG *nactmech,
5242 ITG *mi,ITG *ikactmech,ITG *nactmech,ITG *ielprop,
|