| /dports/biology/molden/molden5.8/ |
| H A D | oriin.f | 8 $ obeta(numatm),norien,ibal local
12 norien = 0
45 norien = norien + 1
46 ori(norien) = k
47 iuser(norien) = 0
53 norien = norien + 1
54 ori(norien) = k
55 iuser(norien) = 1
56 oalpha(norien) = reada(cunit(ind+1:jnd-1)//' ',1,len(cunit))
57 obeta(norien) = reada(cunit(jnd+1:i-1)//' ',1,len(cunit))
|
| H A D | parori.f | 6 $ obeta(numatm),norien,ibal local
8 norien = 0
12 norien = norien + 1
13 ori(norien) = k
14 iuser(norien) = 0
|
| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | orientations.f | 123 norien=norien+1
124 if(norien.gt.norien_) then
130 orab(i,norien)=ab(i)
132 orab(7,norien)=system
133 orname(norien)=oriename
139 if(orab(7,norien).lt.0.d0) then
175 orab(i,norien)=0.d0
177 orab(i,norien)=orab(i,norien)+c(i,j)*a(j,1)
185 orab(i+3,norien)=0.d0
187 orab(i+3,norien)=orab(i+3,norien)+c(i,j)*a(j,2)
[all …]
|
| H A D | distributions.f | 19 subroutine distributions(inpc,textpart,orname,orab,norien, argument
32 integer norien,norien_,istep,istat,n,key,i,iline,ipol,inl,id, local
75 norien=norien+1
76 if(norien.gt.norien_) then
81 orname(norien)=distname
95 if(l.gt.0) ielorien(1,l)=-norien
126 ielorien(1,l)=-norien
132 ielorien(1,l)=-norien
140 & orab(i,norien)
|
| H A D | changesolidsections.f | 20 & iendset,ialset,nset,ielmat,matname,nmat,ielorien,orname,norien, argument
36 & norien,nelcon(2,*),ier,id, local
112 do i=1,norien
115 if(i.gt.norien) then
170 if(norien.gt.0) ielorien(1,ialset(j))=iorientation
187 if(norien.gt.0) ielorien(1,k)=iorientation
|
| H A D | writedesi.f | 19 subroutine writedesi(norien,orname) argument
27 integer j,norien local
37 do j=1,norien
|
| H A D | gen3dfrom2d.f | 24 & norien,norien_,ielorien) argument
55 norieninput=norien
657 norien=norien+1
658 if(norien.gt.norien_) then
674 orname(norien)(ipos:ipos+6)='_shell_'
677 orname(norien)(l:l)=' '
681 orab(l,norien)=e1(l)
682 orab(l+3,norien)=e2(l)
684 orab(7,norien)=1.d0
688 neworien(iorien)=norien
[all …]
|
| H A D | restartshort.f | 20 & nmpc,nalset,nmat,ntmat_,npmat_,norien,nam,nprint,mi,
36 & nmat,ntmat_,npmat_,norien,nam,nprint,mi(*),ntrans,ncs_,
139 read(15)norien
189 & mi,nmpc,mpcend,nmat,ntmat_,npmat_,ncmat_,norien,
278 read(15)norien
329 & nkon,mi,nmpc,mpcend,nmat,ntmat_,npmat_,ncmat_,norien,
|
| H A D | resultsprint.f | 20 & stx,ielorien,norien,orab,t1,ithermal,filab,een,iperturb,fn, argument
55 & norien,iperturb(*),iout,nboun,nmethod,node,nshcon(*), local
113 & orab,ielorien,norien,nk,ne,inum,filab,vold,ikin,ielmat,thicke,
126 if((norien.gt.0).and.(filab(3)(6:6).eq.'L')) then
248 if((norien.gt.0).and.(filab(3)(6:6).eq.'L')) then
269 if((norien.gt.0).and.(filab(4)(6:6).eq.'L')) then
288 if((norien.gt.0).and.(filab(4)(6:6).eq.'L')) then
337 if((norien.gt.0).and.(filab(9)(6:6).eq.'L')) then
357 if((norien.gt.0).and.(filab(9)(6:6).eq.'L')) then
|
| H A D | membranesections.f | 20 & ialset,nset,ielmat,matname,nmat,ielorien,orname,norien, argument
38 & norien,nlayer,iset,icomposite,nelcon(2,*),ier,id, local
121 do i=1,norien
124 if(i.gt.norien) then
278 do i=1,norien
281 if(i.gt.norien) then
|
| H A D | resultsmech_u.f | 21 & ielmat,ielorien,norien,orab,ntmat_,t0,t1,ithermal,prestr, argument
40 & nener,norien,iperturb(*),iout, local
65 & ielmat,ielorien,norien,orab,ntmat_,t0,t1,ithermal,prestr,
78 & ielmat,ielorien,norien,orab,ntmat_,t0,t1,ithermal,prestr,
92 & ielmat,ielorien,norien,orab,ntmat_,t0,t1,ithermal,prestr,
|
| H A D | shellsections.f | 20 & ialset,nset,ielmat,matname,nmat,ielorien,orname,norien,
38 & norien,nlayer,iset,icomposite,nelcon(2,*),ier,numnod,id,
115 do i=1,norien
118 if(i.gt.norien) then
302 do i=1,norien
305 if(i.gt.norien) then
|
| H A D | printoutfluidfem.f | 22 & orab,ielorien,norien,vold,ielmat,
37 & nelem,kon(*),inotr(2,*),ntrans,ielorien(mi(3),*),norien,
192 & orab,ielorien,norien,co,kon,ielmat,thicke,
198 & ielorien,norien,co,kon,ielmat,thicke,
205 & qfx,orab,ielorien,norien,co,kon,ielmat,
|
| H A D | printoutfluid.f | 22 & orab,ielorienf,norien,vold,ielmatf,thicke,
37 & nelem,konf(*),inotr(2,*),ntrans,ielorienf(mi(3),*),norien,
191 & orab,ielorienf,norien,co,konf,ielmatf,thicke,
199 & ielorienf,norien,co,konf,ielmatf,thicke,eme,
208 & qfx,orab,ielorienf,norien,co,konf,ielmatf,
|
| H A D | e_c3d_u.f | 21 & alzero,ielmat,ielorien,norien,orab,ntmat_, argument
60 & ntmat_,nope,norien,ihyper,iexpl,kode,imat,iorien,istiff, local
80 & alzero,ielmat,ielorien,norien,orab,ntmat_,
93 & alzero,ielmat,ielorien,norien,orab,ntmat_,
106 & alzero,ielmat,ielorien,norien,orab,ntmat_,
|
| H A D | skip.f | 21 & mi,nmpc,mpcend,nmat,ntmat_,npmat_,ncmat_,norien,ntrans,nam,
29 & nmpc,mpcend,nmat,ntmat_,npmat_,ncmat_,norien,ntrans,nam,
168 if(norien.ne.0)then
169 read(15)(c80,i=1,norien)
170 read(15)(r8,i=1,7*norien)
|
| H A D | printoutint.f | 20 & mi,nstate_,ii,nelem,qfx,orab,ielorien,norien,co,konf,
37 & ielorien(mi(3),*),norien,konf(*),konl,indexe,m,iorien,iflag,
63 if((norien.eq.0).or.(prlab(ii)(6:6).eq.'G')) then
72 if((norien.eq.0).or.(prlab(ii)(6:6).eq.'G')) then
129 if((norien.eq.0).or.(prlab(ii)(6:6).eq.'G')) then
385 if((norien.eq.0).or.(prlab(ii)(6:6).eq.'G')) then
441 if((norien.eq.0).or.(prlab(ii)(6:6).eq.'G')) then
497 if((norien.eq.0).or.(prlab(ii)(6:6).eq.'G')) then
563 if((norien.eq.0).or.(prlab(ii)(6:6).eq.'G')) then
593 if((norien.eq.0).or.(prlab(ii)(6:6).eq.'G')) then
|
| H A D | printoutintfluidfem.f | 20 & mi,ii,nelem,qfx,orab,ielorien,norien,co,kon,
37 & ielorien(mi(3),*),norien,kon(*),konl,indexe,m,iorien,iflag,
67 if((norien.eq.0).or.(prlab(ii)(6:6).eq.'G')) then
76 if((norien.eq.0).or.(prlab(ii)(6:6).eq.'G')) then
133 if((norien.eq.0).or.(prlab(ii)(6:6).eq.'G')) then
387 if((norien.eq.0).or.(prlab(ii)(6:6).eq.'G')) then
444 if((norien.eq.0).or.(prlab(ii)(6:6).eq.'G')) then
|
| H A D | springs.f | 23 & nset,ielmat,ielorien,ipoinpc,mi,norien,orname,ier) argument
40 & ipoinpc(0:*),idof,iorientation,norien,idof2,ier local
94 do i=1,norien
97 if(i.gt.norien) then
|
| H A D | restartread.f | 20 & nmpc,nalset,nmat,ntmat_,npmat_,norien,nam,nprint,mi, argument
55 & ntmat_,npmat_,norien,nam,nprint,mi(*),ntrans,ncs_,nheading_, local
154 read(15)norien
205 & mi(1),nmpc,mpcend,nmat,ntmat_,npmat_,ncmat_,norien,ntrans,
329 if(norien.ne.0)then
330 read(15)(orname(i),i=1,norien)
331 read(15)(orab(i),i=1,7*norien)
|
| H A D | restartwrite.f | 20 & nmpc,nalset,nmat,ntmat_,npmat_,norien,nam,nprint,mi,
62 & ntmat_,npmat_,norien,nam,nprint,mi(*),ntrans,ncs_,
167 write(15)norien
343 if(norien.ne.0)then
344 write(15)(orname(i),i=1,norien)
345 write(15)(orab(i),i=1,7*norien)
|
| H A D | beamsections.f | 20 & ialset,nset,ielmat,matname,nmat,ielorien,orname,norien, argument
41 & inp(3,*),nset,nmat,norien,istep,istat,n,key,i,j,k,l,imaterial, local
143 do i=1,norien
146 if(i.gt.norien) then
|
| H A D | ccx_2.18.c | 220 norien=norien_; in main()
376 if((istep==0)||((irstrt[0]<0)&&(norien>0))){ in main()
377 NNEW(orname,char,80*norien); in main()
378 NNEW(orab,double,7*norien); in main()
659 &mpcfreeref,&maxlenmpcref,&maxlenmpc,&norien); in main()
841 if(norien>0){ in main()
842 RENEW(orname,char,80*norien); in main()
844 RENEW(orab,double,7*norien); in main()
1038 if(norien>0){ in main()
1069 if(norien>0)RENEW(ielorien,ITG,mi[2]*ne); in main()
[all …]
|
| H A D | e_c3d_us45.f | 22 & ielmat,ielorien,norien,orab,ntmat_,
218 & ntmat_,nope,norien,ihyper,iexpl,kode,imat,iorien,istiff,
243 & ielmat,ielorien,norien,orab,ntmat_,
285 if(norien.gt.0) then
|
| H A D | CalculiXstep.c | 199 nmat,ntmat_,norien,ithermal[2]={0,0},nmpcold, in CalculiXstep() local
373 norien=norien_; in CalculiXstep()
528 if((istep==0)||((irstrt[0]<0)&&(norien>0))) { in CalculiXstep()
529 NNEW(orname,char,80*norien); in CalculiXstep()
530 NNEW(orab,double,7*norien); in CalculiXstep()
830 &mpcfreeref,&maxlenmpcref,&maxlenmpc,&norien); in CalculiXstep()
1013 if(norien > 0) { in CalculiXstep()
1014 RENEW(orname,char,80*norien); in CalculiXstep()
1016 RENEW(orab,double,7*norien); in CalculiXstep()
1236 if(norien>0)RENEW(ielorien,ITG,mi[2]**ne); in CalculiXstep()
[all …]
|