/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | forcadd.f | 73 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 D | skip.f | 20 & 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 D | restartread.f | 19 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 D | restartshort.f | 19 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 D | cfluxs.f | 20 & 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 D | restartwrite.f | 19 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 D | cloads.f | 20 & 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 D | rhsnodef.f | 21 & 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 D | mafillsmforc.f | 19 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 D | buckles.f | 20 & 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 D | steps.f | 20 & 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 D | steadystatedynamicss.f | 21 & 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 D | transformspcsmpcs_quad.c | 66 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 D | CalculiXstep.c | 1142 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 D | ccx_2.18.c | 968 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 D | resultsini_em.f | 24 & ikin,intpointvart,xforc,nforc) argument 42 & neq,nprint,ikin,calcul_fn,nforc, local 172 do i=1,nforc
|
H A D | gen3dforc.f | 19 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 D | restarts.f | 19 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 D | modaldynamics.f | 21 & cs,mcs,ipoinpc,idrct,ctrl,tmin,tmax,nforc,nload,nbody,iprestr, 38 & idrct,nforc,nload,nbody,iprestr,ithermal(*),j,nk,ipos,nset,
|
H A D | createmdelem.f | 24 & ialset,ipkon,kon,istartset,iendset,nforc, argument 46 & iendset(*),idof,m,ikforc(*),ilforc(*),nforc local
|
H A D | rhsmain.c | 44 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 D | temploadfem.f | 19 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 D | linstatic.c | 43 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 D | ini_cal.c | 42 ITG *nbody,ITG *nforc,ITG *nboun,ITG *nk,ITG *nmpc,ITG *nam, in ini_cal() argument 83 *nforc=0; in ini_cal()
|
H A D | sensi_orien.c | 28 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()
|