| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | viewfactors.f | 28 character*132 textpart(16),jobnamec(*) local
97 jobnamec(2)(127:132)=' '
99 if(jobnamec(2)(j:j).eq.'"') then
103 jobnamec(2)(l:l)=' '
107 jobnamec(2)(k-1:k-1)=jobnamec(2)(k:k)
109 jobnamec(2)(126:126)=' '
114 jobnamec(3)(126:132)=' '
116 if(jobnamec(3)(j:j).eq.'"') then
120 jobnamec(3)(l:l)=' '
124 jobnamec(3)(k-1:k-1)=jobnamec(3)(k:k)
[all …]
|
| H A D | substructurematrixoutputs.f | 20 & inpc,istat,n,key,iline,ipol,inl,ipoinp,inp,jobnamec,ipoinpc, argument
28 character*132 textpart(16),jobnamec(*) local
45 jobnamec(5)(1:123)=textpart(i)(10:132)
46 jobnamec(5)(124:132)=' '
48 if(jobnamec(5)(j:j).eq.'"') then
50 if(jobnamec(5)(k:k).eq.'"') then
52 jobnamec(5)(l:l)=' '
56 jobnamec(5)(k-1:k-1)=jobnamec(5)(k:k)
58 jobnamec(5)(123:123)=' '
|
| H A D | crackpropagations.f | 25 & iaxial,nelcon,nmat,tincf,ier,jobnamec,matname) argument
45 character*132 textpart(16),jobnamec(*) local
89 jobnamec(4)(1:126)=textpart(i)(7:132)
90 jobnamec(4)(127:132)=' '
92 if(jobnamec(4)(j:j).eq.'"') then
94 if(jobnamec(4)(k:k).eq.'"') then
96 jobnamec(4)(l:l)=' '
100 jobnamec(4)(k-1:k-1)=jobnamec(4)(k:k)
102 jobnamec(4)(126:126)=' '
|
| H A D | writesubmatrix.f | 20 & nretain,jobnamec) argument
26 character*132 jobnamec(*),fn local
32 ilen=index(jobnamec(5),' ')
37 write(*,*) jobnamec(5)(1:132)
40 fn(1:ilen-1)=jobnamec(5)(1:ilen-1)
|
| H A D | temperatures.f | 23 & namtot,ier,itempuser,jobnamec,nuel_)
40 character*132 textpart(16),jobnamec(*)
158 jobnamec(6)(1:127)=textpart(i)(6:132)
159 jobnamec(6)(128:132)=' '
161 if(jobnamec(6)(j:j).eq.'"') then
163 if(jobnamec(6)(k:k).eq.'"') then
165 jobnamec(6)(l:l)=' '
169 jobnamec(6)(k-1:k-1)=jobnamec(6)(k:k)
171 jobnamec(6)(127:127)=' '
|
| H A D | submodels.f | 22 & ntie_,jobnamec,amta,namta,nam,nam_,namtot_,ier) argument
31 character*132 textpart(16),jobnamec(*) local
152 jobnamec(4)(1:126)=textpart(i)(7:132)
153 jobnamec(4)(127:132)=' '
155 if(jobnamec(4)(j:j).eq.'"') then
157 if(jobnamec(4)(k:k).eq.'"') then
159 jobnamec(4)(l:l)=' '
163 jobnamec(4)(k-1:k-1)=jobnamec(4)(k:k)
165 jobnamec(4)(126:126)=' '
|
| H A D | writerefinemesh.f | 19 subroutine writerefinemesh(kontet,netet_,cotet,nktet,jobnamec, argument
25 character*132 fnrfn,jobnamec,el_header local
59 if(ichar(jobnamec(i:i)).eq.0) exit
66 fnrfn(1:i+7)=jobnamec(1:i-1)//'.rfn.inp'
|
| H A D | cattet.f | 22 & jfix,iparentel,jobnamec) argument
31 character*132 fnrfn,jobnamec local
214 if(ichar(jobnamec(i:i)).eq.0) exit
219 write(*,*) jobnamec(1:132)
222 fnrfn(1:i+7)=jobnamec(1:i-1)//'.rfn.inp'
|
| H A D | sensitivity_out.c | 24 void sensitivity_out(char *jobnamec,double *dgdxglob,ITG *neq,ITG *nobject, in sensitivity_out() argument
35 strcpy(sensitivities,jobnamec); in sensitivity_out()
62 strcpy(nominal,jobnamec); in sensitivity_out()
|
| H A D | restartshort.f | 22 & set,meminset,rmeminset,jobnamec,irestartstep,icntrl,ithermal,
33 character*132 fnrstrt,jobnamec(*)
51 ipos=index(jobnamec(1),char(0))
52 fnrstrt(1:ipos-1)=jobnamec(1)(1:ipos-1)
204 ipos=index(jobnamec(1),char(0))
205 fnrstrt(1:ipos-1)=jobnamec(1)(1:ipos-1)
|
| H A D | utempread.c | 29 void utempread (double *t1,ITG *istep,char *jobnamec) in utempread() argument
43 if(strcmp1(&jobnamec[660]," ")==0)return; in utempread()
44 strcpy1(datin,&jobnamec[660],132); in utempread()
|
| H A D | writeheading.c | 24 void writeheading(char *jobnamec,char *heading,ITG *nheading_){ in writeheading() argument
35 strcpy(fneig,jobnamec); in writeheading()
|
| H A D | CalculiXstep.c | 340 &memmpc_,&ne1d,&ne2d,&nflow,jobnamec,irstrt,ithermal, in CalculiXstep()
732 strcpy(fneig,jobnamec); in CalculiXstep()
778 t1old,eme,sti,ener,xstate,jobnamec,irstrt,&ttime,qaold, in CalculiXstep()
844 writeheading(jobnamec,heading,&nheading_); in CalculiXstep()
1541 mi,&ncmat_,&nstate_,&ener,jobnamec,&ttime,set,&nset, in CalculiXstep()
1576 mi,&ncmat_,&nstate_,&ener,jobnamec,&ttime,set,&nset, in CalculiXstep()
1606 mi,&ncmat_,&nstate_,&ener,jobnamec,&ttime,set,&nset, in CalculiXstep()
1739 set,&nset,istartset,iendset,ialset,jobnamec,output, in CalculiXstep()
1811 jobnamec,irstrt,ithermal,&nener,&nstate_,&istep, in CalculiXstep()
1944 jobnamec,infree,prestr,&iprestr,cbody,ibody, in CalculiXstep()
[all …]
|
| H A D | ccx_2.18.c | 45 jobnamec[792]="",jobnamef[132]="",output[5],*typeboun=NULL, in main() local
194 &memmpc_,&ne1d,&ne2d,&nflow,jobnamec,irstrt,ithermal, in main()
580 strcpy(fneig,jobnamec); in main()
673 writeheading(jobnamec,heading,&nheading_); in main()
1380 mi,&ncmat_,&nstate_,&ener,jobnamec,&ttime,set,&nset, in main()
1415 mi,&ncmat_,&nstate_,&ener,jobnamec,&ttime,set,&nset, in main()
1445 mi,&ncmat_,&nstate_,&ener,jobnamec,&ttime,set,&nset, in main()
1578 set,&nset,istartset,iendset,ialset,jobnamec,output, in main()
1656 jobnamec,irstrt,ithermal,&nener,&nstate_,&istep, in main()
1790 jobnamec,infree,prestr,&iprestr,cbody,ibody, in main()
[all …]
|
| H A D | matrixstorage.c | 29 char *jobnamec, ITG *mi, ITG *ipkon, char *lakon, in matrixstorage() argument
45 strcpy(fsti,jobnamec); in matrixstorage()
48 strcpy(fsti,jobnamec); in matrixstorage()
317 strcpy(fmas,jobnamec); in matrixstorage()
320 strcpy(fmas,jobnamec); in matrixstorage()
551 strcpy(fdof,jobnamec); in matrixstorage()
|
| H A D | writeoldmesh.c | 26 char *matname,ITG *ithermal,char *jobnamec, in writeoldmesh() argument
49 strcpy(foldmesh,jobnamec); in writeoldmesh()
|
| H A D | checkdivergence.c | 52 char *jobnamec,ITG *mortar,ITG *nmat,ITG *ielprop,double *prop, in checkdivergence() argument
105 ialset,eenmax,fnr,fni,emn,thicke,jobnamec,output,qfx,cdn, in checkdivergence()
136 ialset,eenmax,fnr,fni,emn,thicke,jobnamec,output,qfx,cdn, in checkdivergence()
|
| H A D | robustdesign.c | 68 double *thicke,char *jobnamec,char *tieset,ITG *ntie, in robustdesign()
118 getglobalresults(&jobnamec[396],&integerglob,&doubleglob,nboun,iamboun,xboun, in robustdesign()
297 thicke,jobnamec,output,qfx,cdn,mortar,cdnr,cdni,nmat, in robustdesign()
303 istartset,iendset,ialset,jobnamec,output, in robustdesign()
319 istartdesi,ialdesi,co,physcon,isolver,ntrans,nk,inotr,trab,jobnamec, in robustdesign()
|
| H A D | gen3delem.f | 29 & ielorien,jobnamec,ne2boun) argument
44 character*132 jobnamec(*),fn local
81 ilen=index(jobnamec(1),char(0))
86 write(*,*) jobnamec(1)(1:132)
89 fn(1:ilen-1)=jobnamec(1)(1:ilen-1)
|
| H A D | checkconvergence.c | 54 char *jobnamec,ITG *mortar,ITG *nmat,ITG *ielprop,double *prop, in checkconvergence() argument
385 ialset,eenmax,fnr,fni,emn,thicke,jobnamec,output,qfx, in checkconvergence()
506 ialset,eenmax,fnr,fni,emn,thicke,jobnamec,output,qfx,cdn, in checkconvergence()
608 ialset,eenmax,fnr,fni,emn,thicke,jobnamec,output,qfx,cdn, in checkconvergence()
670 ialset,eenmax,fnr,fni,emn,thicke,jobnamec,output,qfx,cdn, in checkconvergence()
701 ialset,eenmax,fnr,fni,emn,thicke,jobnamec,output,qfx,cdn, in checkconvergence()
780 ialset,eenmax,fnr,fni,emn,thicke,jobnamec,output,qfx,cdn, in checkconvergence()
810 ialset,eenmax,fnr,fni,emn,thicke,jobnamec,output,qfx,cdn, in checkconvergence()
|
| H A D | randomfieldmain.c | 50 ITG *nk,ITG *inotr,double *trab,char *jobnamec,ITG *nboun, in randomfieldmain() argument
408 ntrans,inotr,trab,co,nk,nactdof,jobnamec,mi,ipkon, in randomfieldmain()
615 istartset,iendset,ialset,jobnamec,output, in randomfieldmain()
621 istartset,iendset,ialset,jobnamec,output, in randomfieldmain()
645 istartset,iendset,ialset,jobnamec,output, in randomfieldmain()
652 istartset,iendset,ialset,jobnamec,output, in randomfieldmain()
688 istartset,iendset,ialset,jobnamec,output, in randomfieldmain()
|
| H A D | restarts.f | 34 & ener,xstate,jobnamec,infree,irstrt,inpc,textpart,istat,n,
53 character*132 jobnamec(*),textpart(16)
132 & ener,xstate,jobnamec,infree,irestartstep,prestr,iprestr,
|
| H A D | feasibledirection.c | 53 ITG *ialset,char *jobnamec,char *output,ITG *ntrans, in feasibledirection() argument
103 ialset,jobnamec,output,dgdxglob,&i,objectset,ntrans,inotr, in feasibledirection()
118 ialset,jobnamec,output,dgdxglob,&i,objectset,ntrans,inotr, in feasibledirection()
416 ialset,jobnamec,output,dgdxglob,&iobject,objectset,ntrans,inotr, in feasibledirection()
|
| H A D | restartwrite.f | 34 & ener,xstate,jobnamec,infree,prestr,iprestr,cbody,
59 character*132 fnrstrt,jobnamec(*)
89 ipos=index(jobnamec(1),char(0))
90 fnrstrt(1:ipos-1)=jobnamec(1)(1:ipos-1)
|
| H A D | crackfrd.c | 30 ITG *iendset,ITG *ialset,char *jobnamec,char *output, in crackfrd() argument
56 strcpy(fneig,jobnamec); in crackfrd()
|