Home
last modified time | relevance | path

Searched refs:nforc (Results 1 – 25 of 71) sorted by relevance

123

/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Dforcadd.f73 call nident(ikforc,idof,nforc,id)
108 nforc=nforc+1
109 if(nforc.gt.nforc_) then
113 nodeforc(1,nforc)=node
114 nodeforc(2,nforc)=isector
115 ndirforc(nforc)=i
116 xforc(nforc)=val
117 if(.not.user) idefforc(nforc)=1
118 if(nam.gt.0) iamforc(nforc)=iamplitude
122 do j=nforc,id+2,-1
[all …]
H A Dskip.f20 & nforc,nboun,nk,ne,nkon,
28 integer nset,nalset,nload,nforc,nboun,nk,ne,nkon,mi(*),
97 read(15)(i4,i=1,2*nforc)
98 read(15)(i4,i=1,nforc)
99 read(15)(r8,i=1,nforc)
100 read(15)(i4,i=1,nforc)
101 read(15)(i4,i=1,nforc)
102 if(nam.gt.0) read(15)(i4,i=1,nforc)
103 read(15)(r8,i=1,nforc)
H A Drestartread.f19 subroutine restartread(istep,nset,nload,nforc, nboun,nk,ne, argument
54 integer istep,nset,nload,nforc,nboun,nk,ne,nmpc,nalset,nmat, local
121 read(15)nforc
204 call skip(nset,nalset,nload,nbody,nforc,nboun,nk,ne,nkon,
258 read(15)(nodeforc(i),i=1,2*nforc)
259 read(15)(ndirforc(i),i=1,nforc)
260 read(15)(xforc(i),i=1,nforc)
261 read(15)(ikforc(i),i=1,nforc)
262 read(15)(ilforc(i),i=1,nforc)
263 if(nam.gt.0) read(15)(iamforc(i),i=1,nforc)
[all …]
H A Drestartshort.f19 subroutine restartshort(nset,nload,nbody,nforc,nboun,nk,ne, argument
35 integer istep,nset,nload,nforc,nboun,nk,ne,nmpc,nalset,
107 read(15)nforc
188 & nforc,nboun,nk,ne,nkon,
246 read(15)nforc
328 call skip(nset,nalset,nload,nbody,nforc,nboun,nk,ne,
H A Dcfluxs.f20 & ialset,nset,nodeforc,ndirforc,xforc,nforc,nforc_,iamforc, argument
39 & nset,nforc,nforc_,istep,istat,n,i,j,k,l,iforcdir,key, local
63 do j=1,nforc
197 & nodeforc,ndirforc,xforc,nforc,nforc_,iamforc,
227 & nodeforc,ndirforc,xforc,nforc,nforc_,iamforc,
237 & nodeforc,ndirforc,xforc,nforc,nforc_,
H A Drestartwrite.f19 subroutine restartwrite(istepnew,nset,nload,nforc, nboun,nk,ne, argument
61 integer nset,nload,nforc,nboun,nk,ne,nmpc,nalset,nmat,
135 write(15)nforc
272 write(15)(nodeforc(i),i=1,2*nforc)
273 write(15)(ndirforc(i),i=1,nforc)
274 write(15)(xforc(i),i=1,nforc)
275 write(15)(ikforc(i),i=1,nforc)
276 write(15)(ilforc(i),i=1,nforc)
277 if(nam.gt.0) write(15)(iamforc(i),i=1,nforc)
278 write(15)(xforcold(i),i=1,nforc)
H A Dcloads.f20 & ialset,nset,nodeforc,ndirforc,xforc,nforc,nforc_,iamforc, argument
40 & nset,nforc,nforc_,istep,istat,n,i,j,k,l,iforcdir,key, local
69 do j=1,nforc
312 & nforc,nforc_,iamforc,iamplitude,nam,ntrans,trab,inotr,co,
362 & nodeforc,ndirforc,xforc,nforc,nforc_,iamforc,
392 & nodeforc,ndirforc,xforc,nforc,nforc_,
H A Drhsnodef.f21 & nforc,fext,nactdof,nmethod,ikmpc,ntmat_,iperturb, argument
34 & ne,nmpc,nforc,nmethod,m,idm,idir,itr, local
51 do i=1,nforc
200 call mafillsmforc(nforc,ndirforc,nodeforc,xforc,nactdof,
H A Dmafillsmforc.f19 subroutine mafillsmforc(nforc,ndirforc,nodeforc,xforc,nactdof, argument
27 integer nforc,ndirforc(*),nodeforc(2,*),mi(*),nactdof(0:mi(2),*), local
38 do i=1,nforc
H A Dbuckles.f20 & nforc,nload,ithermal,iprestr,nbody,t0,t1,nk,iperturb, argument
33 & nforc,nload,ithermal(*),iprestr,i,nk,iperturb(*),iline,ipol,inl, local
170 nforc=0
H A Dsteps.f20 & nforc,nload,ithermal,t0,t1,nk,irstrt,istep,istat,n,jmax,ctrl, argument
33 integer iperturb(*),nforc,nload,ithermal(*),nk,istep,istat,n,key, local
142 nforc=0
H A Dsteadystatedynamicss.f21 & xmodal,cs,mcs,ipoinpc,nforc,nload,nbody,iprestr,t0,t1,ithermal, argument
38 & ipoinpc(0:*),nforc,nload,nbody,iprestr,ithermal(*),j,nk,ipos, local
216 nforc=0
H A Dtransformspcsmpcs_quad.c66 ITG *nodeforc,ITG *ndirforc,double *xforc,ITG *nforc, in transformspcsmpcs_quad() argument
109 ndimforc2=*nforc; in transformspcsmpcs_quad()
110 RENEW(nodeforc2,ITG,2**nforc); in transformspcsmpcs_quad()
111 RENEW(ndirforc2,ITG,*nforc); in transformspcsmpcs_quad()
112 RENEW(xforc2,double,*nforc); in transformspcsmpcs_quad()
400 if(debug==1)printf(" transformspcsmpcs_quad: nforc %" ITGFORMAT "\t",*nforc); in transformspcsmpcs_quad()
404 for(i=0;i<*nforc;i++){ in transformspcsmpcs_quad()
H A DCalculiXstep.c1142 RENEW(ndirforc,ITG,nforc); in CalculiXstep()
1143 RENEW(xforc,double,nforc); in CalculiXstep()
1144 RENEW(ikforc,ITG,nforc); in CalculiXstep()
1145 RENEW(ilforc,ITG,nforc); in CalculiXstep()
1499 &nforc, in CalculiXstep()
1530 &nforc, in CalculiXstep()
1563 xforc,&nforc, in CalculiXstep()
1593 ndirforc,xforc,&nforc, in CalculiXstep()
1833 nforc=0; in CalculiXstep()
1847 nforcold=nforc; in CalculiXstep()
[all …]
H A Dccx_2.18.c968 RENEW(ndirforc,ITG,nforc); in main()
969 RENEW(xforc,double,nforc); in main()
970 RENEW(ikforc,ITG,nforc); in main()
971 RENEW(ilforc,ITG,nforc); in main()
1338 &nforc, in main()
1369 &nforc, in main()
1402 xforc,&nforc, in main()
1432 ndirforc,xforc,&nforc, in main()
1679 nforc=0; in main()
1693 nforcold=nforc; in main()
[all …]
H A Dresultsini_em.f24 & ikin,intpointvart,xforc,nforc) argument
42 & neq,nprint,ikin,calcul_fn,nforc, local
172 do i=1,nforc
H A Dgen3dforc.f19 subroutine gen3dforc(ikforc,ilforc,nforc,nforc_,nodeforc, argument
41 & nforc,nforc_,ntrans,inotr(2,*),rig(*),ipompc(*),nodempc(3,*), local
71 nforcold=nforc
145 & ndirforc,xforc,nforc,nforc_,iamforc,
467 & ndirforc,xforc,nforc,nforc_,iamforc,
582 call nident(ikforc,idof,nforc,id)
701 & ndirforc,xforc,nforc,nforc_,iamforc,
709 ilforc(id)=nforc
H A Drestarts.f19 subroutine restarts(istep,nset,nload,nforc, nboun,nk,ne, argument
55 integer istep,nset,nload,nforc,nboun,nk,ne,nmpc,nalset,nmat,
117 call restartread(istep,nset,nload,nforc, nboun,nk,ne,
H A Dmodaldynamics.f21 & cs,mcs,ipoinpc,idrct,ctrl,tmin,tmax,nforc,nload,nbody,iprestr,
38 & idrct,nforc,nload,nbody,iprestr,ithermal(*),j,nk,ipos,nset,
H A Dcreatemdelem.f24 & ialset,ipkon,kon,istartset,iendset,nforc, argument
46 & iendset(*),idof,m,ikforc(*),ilforc(*),nforc local
H A Drhsmain.c44 ITG *nodeforc,ITG *ndirforc,double *xforcact,ITG *nforc, in rhsmain() argument
132 ndirforc1=ndirforc;xforcact1=xforcact;nforc1=nforc;nelemload1=nelemload; in rhsmain()
196 nforc,fext,nactdof,nmethod,ikmpc,ntmat_,iperturb, in rhsmain()
H A Dtemploadfem.f19 subroutine temploadfem(xforcold,xforc,xforcact,iamforc,nforc, argument
42 & nam,i,istart,iend,id,nforc,nload,nk,namta(3,*),ithermal(*), local
198 do i=1,nforc
H A Dlinstatic.c43 ITG *nodeforc,ITG *ndirforc,double *xforc,ITG *nforc, in linstatic() argument
90 *iponoel=NULL,*inoel=NULL,zero=0,nherm=1,nev=*nforc,node,idir, in linstatic()
144 nload,sideload,iamload,&iglob,nforc,iamforc,xforc, in linstatic()
157 NNEW(xforcact,double,*nforc); in linstatic()
457 nforc,nelemload,sideload,xloadact,nload,xbodyact,ipobody, in linstatic()
486 nforc,nelemload,sideload,xloadact,nload,xbodyact,ipobody, in linstatic()
538 if(*nforc>0){sigma=xforc[0];} in linstatic()
708 NNEW(d,double,*nforc); in linstatic()
709 for(i=0;i<*nforc;i++){d[i]=xforc[0];} in linstatic()
791 for(i=0;i<*nforc;i++){ in linstatic()
[all …]
H A Dini_cal.c42 ITG *nbody,ITG *nforc,ITG *nboun,ITG *nk,ITG *nmpc,ITG *nam, in ini_cal() argument
83 *nforc=0; in ini_cal()
H A Dsensi_orien.c28 ITG *nodeforc,ITG *ndirforc,double *xforc,ITG *nforc, in sensi_orien() argument
122 nload,sideload,iamload,&iglob,nforc,iamforc,xforc, in sensi_orien()
328 NNEW(xforcact,double,*nforc); in sensi_orien()
355 FORTRAN(tempload,(xforcold,xforc,xforcact,iamforc,nforc,xloadold,xload, in sensi_orien()
714 &reltime,&ne0,xforc,nforc,thicke,shcon,nshcon, in sensi_orien()
753 nforc,nelemload,sideload,xloadact,nload,xbodyact,ipobody, in sensi_orien()
789 springarea,&reltime,&ne0,xforc,nforc,thicke,shcon, in sensi_orien()

123