| /dports/cad/feappv/feappv-4.1i/program/ |
| H A D | sblke.f | 132 nn = (nr + nodinc)*(j-1) + ni
150 ix(iq(3),me) = nn + nr + nodinc
157 ix(it(6),me) = nr+nodinc + nn
177 ix(it(4),me) = nr+nodinc + nn
200 ix(iq(3),me) = nr + nodinc + (nr+1)/2 + nodinc + nn + 1
201 ix(iq(4),me) = nr + nodinc + (nr+1)/2 + nodinc + nn - 1
204 ix(iq(7),me) = nr + nodinc + (nr+1)/2 + nodinc + nn
205 ix(iq(8),me) = nr + nodinc + n8
218 ix(iq(9),me) = nr+nodinc + nn
258 n = (2*nr+nodinc-1)*(j-1) + ni
[all …]
|
| H A D | blktem.f | 26 integer ndm,l,n,nn,nr,ns,nt,ni,nm,ng,nodinc local
43 nodinc = nint(td(6))
53 nodinc = max(nodinc,0)
60 write(iow,2000) nr,ns,nt,ni,nodinc
63 write(*,2000) nr,ns,nt,ni,nodinc
106 call tblk(nr,ns,nt,tl,t,ixl,dr,ds,dt,ni,ndm,nodinc,nm,prt,prth)
|
| H A D | blkgen.f | 37 integer i,j,k,l,n,nm,nn,nr,ns,nt,nf,ng,ni,ntyp,nodinc local
172 nodinc = nint(tb(6))
181 nodinc = 0
191 nodinc = nint(tb(6))
201 nodinc = nint(tb(6))
207 nodinc = 0
224 nodinc = max(nodinc,0)
234 write(iow,2000) nr,ns,nt,ni,ne,ma,nodinc,ntyp
237 write(*,2000) nr,ns,nt,ni,ne,ma,nodinc,ntyp
296 ng = nr*ns + nodinc*(ns-1) + ni -1
[all …]
|
| H A D | tblk.f | 2 subroutine tblk(nr,ns,nt,tl,t,ixl,dr,ds,dt,ni,ndm,nodinc,nm, argument
39 integer i,j,k,l,n, ll, mct, nr,ns,nt, ni,ndm,nodinc,nm
98 n = n + nodinc
|
| H A D | sblkn.f | 2 subroutine sblkn(nr,ns,xl,ixl,shp,x,dr,ds,ni,n,ndm,nodinc,ntyp, argument
62 integer nr,ns,nsn,ni,ndm,nodinc,ntyp
158 n = n + nodinc
|
| H A D | pblend1.f | 103 integer ne,nf,ni,nm,nn,nr,ns,nodinc,ntyp, styp, dlayer
145 nodinc = 0
161 call sblke(nr,ns,x,ix,ni,ne,nn,ndm,nen1,nodinc,ntyp,nm,ma,
|
| H A D | pblend2.f | 172 integer n,ne,nf,ni,nm,nn,nr,ns,nodinc,ntyp, styp, dlayer
311 nodinc = 0
328 call sblke(nr,ns,x,ix,ni,ne,nn,ndm,nen1,nodinc,ntyp,nm,ma,
|