Searched refs:il (Results 1 – 5 of 5) sorted by relevance
| /phasta/M2N/src/ |
| H A D | cname.f | 44 integer il(0:8) local
50 il(0) = mod(ii,10)
52 ii = (ii - il(k-1)) / 10
53 il(k) = mod (ii,10)
59 if (il(k) .ne. 0 .or. beg) then
61 cc = TRIM(cc) // CHAR(ic0 + il(k))
65 cc = TRIM(cc)//CHAR(ic0 + il(0))
|
| /phasta/AcuStat/src/ |
| H A D | cname.f | 44 integer il(0:8) local
50 il(0) = mod(ii,10)
52 ii = (ii - il(k-1)) / 10
53 il(k) = mod (ii,10)
59 if (il(k) .ne. 0 .or. beg) then
61 cc = TRIM(cc) // CHAR(ic0 + il(k))
65 cc = TRIM(cc)//CHAR(ic0 + il(0))
|
| /phasta/M2NFixBnd/src/ |
| H A D | cname.f | 44 integer il(0:8) local
50 il(0) = mod(ii,10)
52 ii = (ii - il(k-1)) / 10
53 il(k) = mod (ii,10)
59 if (il(k) .ne. 0 .or. beg) then
61 cc = TRIM(cc) // CHAR(ic0 + il(k))
65 cc = TRIM(cc)//CHAR(ic0 + il(0))
|
| /phasta/phSolver/common/ |
| H A D | cname.f | 44 integer il(0:8) local
50 il(0) = mod(ii,10)
52 ii = (ii - il(k-1)) / 10
53 il(k) = mod (ii,10)
59 if (il(k) .ne. 0 .or. beg) then
61 cc = TRIM(cc) // CHAR(ic0 + il(k))
65 cc = TRIM(cc)//CHAR(ic0 + il(0))
|
| /phasta/phSolver/compressible/ |
| H A D | e3ls.f | 740 il = i0 + idof
742 EGmass(:,il,j0+1) = EGmass(:,il,j0+1) +
744 EGmass(:,il,j0+2) = EGmass(:,il,j0+2) +
746 EGmass(:,il,j0+3) = EGmass(:,il,j0+3) +
748 EGmass(:,il,j0+4) = EGmass(:,il,j0+4) +
750 EGmass(:,il,j0+5) = EGmass(:,il,j0+5) +
|