H A D | factor.F | 4 subroutine factor(p,idx,idy,idz) argument 6 integer i,j,p,idx,idy,idz,it local 42 idy = 1 45 if (idx.le.idy.and.idx.le.idz) then 47 elseif (idy.le.idx.and.idy.le.idz) then 48 idy = fac(i)*idy 70 integer idx,idy,idz local 77 it = mod(ip,idy) 79 ip = (ip - it)/idy 88 integer p,ix,iy,iz,idx,idy,idz local [all …]
|