Home
last modified time | relevance | path

Searched refs:nen1 (Results 1 – 25 of 67) sorted by relevance

123

/dports/cad/feappv/feappv-4.1i/plot/
H A Dplfacx.f63 pstyp = ie(1,ix(nen1,n))
65 iel = ie(nie-1,ix(nen1,n))
110 iline(5) = ix(nen1-1,n)
111 iline(6) = ix(nen1,n)
143 iline(5) = ix(nen1-1,n)
144 iline(6) = ix(nen1,n)
162 iline(5) = ix(nen1-1,n)
163 iline(6) = ix(nen1,n)
203 iline(6) = ix(nen1,n)
342 iline(5) = ix(nen1-1,n)
[all …]
H A Dpjstrs.f38 do i = nen1-1,nen1*numel-1,nen1
55 do i = nen1-1,nen1*numel-1,nen1
H A Dpnumna.f2 subroutine pnumna(ix,nen1,nen,numel, ip) argument
13 integer nen1,nen, numel, i,nn local
14 integer ix(nen1,*), ip(*)
21 if(ix(nen1-1,nn).ge.0 .and.
22 & (maplt.eq.0 .or. ix(nen1,nn).eq.maplt)) then
H A Dpfacex.f2 subroutine pfacex(il,ix,ixf,nen,nen1,nf,n) argument
25 integer nen,nen1,nf,n, j local
26 integer il(4),ix(nen1)
40 ixf(6) = ix(nen1-1)
41 ixf(7) = ix(nen1)
H A Dplot2d.f2 subroutine plot2d(ie,ix,ip,x,xl,nie,ndm,nen,nen1,nume,n1,n2) argument
37 integer nie, ndm, nen, nen1, n1,n2, nume, isp local
40 integer ie(nie,*),ix(nen1,*), ip(*)
52 if(ix(nen1-1,n).ge.0) then
54 ma = ix(nen1,n)
62 icolr = mod(ix(nen1-1,n),7) + 1
H A Dplface.f2 subroutine plface(ix,ip,x,ndm,nen1,numnp,numel,iln,ct) argument
31 integer n, ndm, nen1, numnp, numel, nface, iln(2) local
33 integer ix(nen1,numel), ip(numel)
42 if(ix(nen1,n).gt.0) then
54 if(ip(n).gt.0 .and. ix(nen1,n).gt.0) then
H A Dxcompp.f2 subroutine xcompp(ie,ix,id,nie,nen1,nen,numnp,numel) argument
27 integer nie,nen1,nen,numnp,numel, i,iu,i1,i2,j,ma,n, iplt(30) local
28 integer ie(nie,*),ix(nen1,*),id(*)
37 if(ix(nen1,n).gt.0) then ! Test for visible elements
38 ma = ie(nie-1,ix(nen1,n))
H A Dpline.f3 & nen1,nen,nie,ct,isw)
37 integer numnp,numel,ndm,nen1,nen,nie
45 call xcompp(ie,ix,id,nie,nen1,nen,numnp,numel)
52 & nen1,nen,nie,ct(1),isw)
H A Dperspz.f2 subroutine perspz(x,ix, ip, nen1,nen,ndm,numnp,numel) argument
32 integer i,ii, n,nen1,nen,ndm,numnp,numel,nne local
33 integer ix(nen1,numel), ip(numel), ic(numel)
59 if(ix(nen1,nne).gt.0) then
H A Dxpline.f3 & nen1,nen,nie,ct,isw)
46 integer numnp,numel,ndm,nen1,nen,nie, jplt(30)
50 integer ie(nie,*),ix(nen1,*),ic(*),ip(*),id(*)
66 if(ix(nen1-1,n).ge.0) then
67 ii = ix(nen1,n)
/dports/cad/feappv/feappv-4.1i/program/
H A Dpelmin.f2 subroutine pelmin(tx,idl,ix,nen1, nmat,nnty,nord, argument
39 integer i,j,k,l,n,nen1,nnty,nmat,nord
43 integer idl(*),ix(nen1,*)
183 ix(nen1,n) = ix(nen1,n-1)
184 ix(nen1-1,n) = nreg
203 ix(nen1,l) = lk
204 ix(nen1-1,l) = nreg
222 write(iow,2002) n,ix(nen1,n),ix(nen1-1,n),etype,
225 write(*,2002) n,ix(nen1,n),ix(nen1-1,n),etype,
H A Dmeshck.f2 subroutine meshck(ip,ie,iedof,id,nty,ix,nie,nen,nen1,ndf, argument
42 integer i,ii,j,ma,mg,n,nen,nen1,nie,ndf,numnp,numel,nummat
45 integer ix(nen1,*), nty(*)
53 if (ix(nen1,n).le.0 .or. ix(nen1,n).gt.nummat) then
84 mg = ix(nen1,n)
167 if(ix(nen1,n).eq.ma) then
173 if(ix(nen1,n).eq.ma) then
H A Diters.f48 call elcnt(numnp,numel,nen,nen1,mr(np(33)),mr(np(111)),.true. )
52 call pelcon(numel,nen,nen1,mr(np(33)),mr(np(111)),mr(np(112)),
84 call comproa(numnp,nen,nen1,ndf,mr(np(33)),mr(np(31)),
89 call comprob(numnp,nen,nen1,ndf,mr(np(33)),mr(np(31)),
138 call comproa(numnp,nen,nen1,ndf,mr(np(33)),mr(np(31)),
143 call comprob(numnp,nen,nen1,ndf,mr(np(33)),mr(np(31)),
168 call comproa(numnp,nen,nen1,ndf,mr(np(33)),mr(np(31)),
173 call comprob(numnp,nen,nen1,ndf,mr(np(33)),mr(np(31)),
H A Dptiend.f2 subroutine ptiend(ie,ix,ib,ip,x,ma,nie,nen,nen1,ndm,numel) argument
32 integer ma,nie,nen,nen1,ndm,numel local
37 integer ie(nie,*),ix(nen1,*),ib(*),ip(*),iord1(50),iord2(50)
47 if(ix(nen1,n).eq.ma) then
51 call pltord(ix(1,n),ie(nie-1,ix(nen1,n)),ij1,iord1)
64 if(ix(nen1,m).ne.ma) then
65 call pltord(ix(1,m),ie(nie-1,ix(nen1,m)),ij2,iord2)
H A Dsblke.f2 subroutine sblke(nr,ns,x,ix,ni,ne,n,ndm,nen1,nodinc,ntyp,nm,mat, argument
63 integer ix(nen1,*),ilr(*)
108 ix(nen1,me) = ma
140 ix(nen1,me) = ma
181 ix(nen1,me) = ma
235 ix(nen1,me) = ma
246 ix(nen1,me) = ma
269 ix(nen1,me) = ma
274 ix(nen1,me) = ma
279 ix(nen1,me) = ma
[all …]
H A Dpblendm.f2 subroutine pblendm(isd,blend,ndm,nen1,prt,prth,eflag,nflag) argument
40 integer n,n1,isd,blend,ndm,nen1 local
71 & iside,isd,ndm,nen1,prt,prth,eflag,nflag)
79 call pblend3(n,hr(fp(2)),tblend,mr(fp(1)),isd,ndm,nen1,
94 & iside(1),isd,ndm,nen1,prt,prth,eflag,nflag)
H A Dvblke.f2 subroutine vblke(nr,ns,nt,ix,ni,ne,nf,nen1,mat,ntyp,dlayer,ilr) argument
36 integer ni,nf,ne,nen1,mat,ma,ntyp local
39 integer ix(nen1,*),iq(8),it(4),ilr(*),nd(8),itc(4,6)
100 ix(nen1,nf) = ma
112 ix(nen1,nf) = ma
H A Dtienod.f2 subroutine tienod(ix,x,ip,ir,ibuck,ib,ndm,nen,nen1, argument
46 integer ndm,nen,nen1,numnp,numel,nr,nt
52 integer ix(nen1,*),ip(numnp),ir(numnp)
164 if(ix(nen1,j).eq.r1 .or. ix(nen1,j).eq.r2) then
165 ir(ix(i,j)) = ix(nen1,j)
167 elseif(ix(nen1-1,j).eq.r1 .or. ix(nen1-1,j).eq.r2) then
168 ir(ix(i,j)) = ix(nen1-1,j)
H A Drstprf.f2 subroutine rstprf(jp,idl,id,ix,ndf,nen1,nen,neq,numel) argument
33 integer ndf,nen1,nen,neq,numel local
36 integer jp(*),idl(*),id(ndf,*),ix(nen1,*)
50 ma = ix(nen1-1,n)
H A Dreshis.f2 subroutine reshis(ix,nen1,numel,n1, n2) argument
30 integer nen1,numel,n1,n2, n,nh, ix(nen1,numel) local
H A Dpblend3.f2 subroutine pblend3(n,tb,iblend,ilr,isd,ndm,nen1, argument
42 integer isd,ndm,nr,ns,nt,nen1,ma,dlayer
99 & iside,isd,3,nen1,.false.,.false.,.false.,nflag)
152 call vblke(nr,ns,nt,mr(np(33)),ni,ne,nf,nen1,ma,ntyp,dlayer,ilr)
156 call psregn(mr(np(33)),nen,nen1,ne,nf,nreg,prt,prth)
H A Dsethis.f2 subroutine sethis(ie,ix,nie,nen,nen1, argument
34 integer i,n,nh0,nhf,nie,nen,nen1,numel,nummat,ma
35 integer ie(nie,*),ix(nen1,*)
87 ma = ix(nen1,n)
/dports/cad/feappv/feappv-4.1i/unix/
H A Dpltelm.f2 subroutine pltelm(x,ie,ix,scale,nie,ndm,nen1,n1,n2) argument
35 integer nie,ndm,nen1, i,j,n,ii,jj,nn,ma,nd, n1,n2, iplt(30) local
38 integer ie(nie,*),ix(nen1,*)
48 ma = ix(nen1,n)
49 if(ix(nen1-1,n).ge.0 .and. ma.gt.0 .and.
/dports/cad/feappv/feappv-4.1i/windows/
H A Dpltelm.f2 subroutine pltelm(x,ie,ix,scale,nie,ndm,nen1,n1,n2) argument
33 integer nie,ndm,nen1, i,j,n,ii,jj,nn,ma,nd, n1,n2, iplt(50) local
36 integer ie(nie,*),ix(nen1,*)
46 ma = ix(nen1,n)
47 if(ix(nen1-1,n).ge.0 .and. ma.gt.0 .and.
/dports/cad/feappv/feappv-4.1i/user/
H A Duiters.f40 call elcnt(numnp,numel,nen,nen1,mr(np(33)),mr(np(153)),.true. )
44 call pelcon(numel,nen,nen1,mr(np(33)),mr(np(153)),mr(np(154)),
57 call comproa(numnp,nen,nen1,ndf,mr(np(33)),mr(np(31)),
61 call comprob(numnp,nen,nen1,ndf,mr(np(33)),mr(np(31)),

123