/dports/cad/feappv/feappv-4.1i/plot/ |
H A D | plfacx.f | 63 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 D | pjstrs.f | 38 do i = nen1-1,nen1*numel-1,nen1 55 do i = nen1-1,nen1*numel-1,nen1
|
H A D | pnumna.f | 2 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 D | pfacex.f | 2 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 D | plot2d.f | 2 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 D | plface.f | 2 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 D | xcompp.f | 2 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 D | pline.f | 3 & 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 D | perspz.f | 2 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 D | xpline.f | 3 & 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 D | pelmin.f | 2 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 D | meshck.f | 2 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 D | iters.f | 48 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 D | ptiend.f | 2 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 D | sblke.f | 2 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 D | pblendm.f | 2 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 D | vblke.f | 2 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 D | tienod.f | 2 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 D | rstprf.f | 2 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 D | reshis.f | 2 subroutine reshis(ix,nen1,numel,n1, n2) argument 30 integer nen1,numel,n1,n2, n,nh, ix(nen1,numel) local
|
H A D | pblend3.f | 2 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 D | sethis.f | 2 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 D | pltelm.f | 2 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 D | pltelm.f | 2 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 D | uiters.f | 40 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)),
|