Searched refs:i1 (Results 1 – 14 of 14) sorted by relevance
| /phasta/M2NFixBnd/src/ |
| H A D | cname.f | 12 i1 = mod (ii,10) 13 ii = (ii - i1) / 10 28 IF (i1 .ne. 0 .or. beg) then 30 cc = TRIM(cc)//CHAR(ic0 + i1)
|
| /phasta/M2N/src/ |
| H A D | cname.f | 12 i1 = mod (ii,10) 13 ii = (ii - i1) / 10 28 IF (i1 .ne. 0 .or. beg) then 30 cc = TRIM(cc)//CHAR(ic0 + i1)
|
| /phasta/phSolver/common/ |
| H A D | cname.f | 12 i1 = mod (ii,10) 13 ii = (ii - i1) / 10 28 IF (i1 .ne. 0 .or. beg) then 30 cc = TRIM(cc)//CHAR(ic0 + i1)
|
| H A D | genibc.f | 104 & ' Node ',13x,6('dof',i1,:,6x))
|
| H A D | dtn.f | 313 1066 format('TABLE.',i1) 497 1066 format('TABLE.',i1)
|
| H A D | genini.f | 175 & ' Number ',6x,6('dof',i1,:,10x))
|
| H A D | genbkbPosix.f | 166 & ' Number C P V H ',5x,27('Node',i1,:,2x))
|
| H A D | genbkb.f | 217 & ' Number C P V H ',5x,27('Node',i1,:,2x))
|
| H A D | gendat.f | 251 & ' Node ',12x,3('x',i1,:,17x))
|
| H A D | genbkbSyncIO.f | 208 & ' Number C P V H ',5x,27('Node',i1,:,2x))
|
| H A D | bctint.f | 143 integer i0,ilen,i1,nper,istart,iend local
|
| H A D | genbc.f | 147 & ' Number ',5x,6('BC',i1,:,10x))
|
| /phasta/AcuStat/src/ |
| H A D | cname.f | 12 i1 = mod (ii,10) 13 ii = (ii - i1) / 10 28 IF (i1 .ne. 0 .or. beg) then 30 cc = TRIM(cc)//CHAR(ic0 + i1)
|
| /phasta/phSolver/compressible/ |
| H A D | bc3lhs.f | 47 i1 = ioff + 1 58 EGmass(iel,i,i1) = zero 59 EGmass(iel,i1,i) = zero 61 EGmass(iel,i1,i1) = one 243 EGmass(iel,i ,i1) = zero 244 EGmass(iel,i1,i ) = zero 254 EGmass(iel,i1,i1) = one
|