Lines Matching defs:draw
1 subroutine draw(iz,jz,jdir,a,ib,ic,id,pz,mdim) subroutine
4 logical ai,aj,ak,lc(4), yes, euclid
18 common /cntval/ cntval, euclid, yes, icnt, iflag
19 common/cntr/r1,imax,jmax
32 1 aa = a(i,j)
67 6 number= j-1
69 7 k = (number-1)*imax +i
74 5 if (j.ne.1.and.j.ne.jmax) goto 3
83 3 continue
97 15 idir = idir + 1
100 4 i = iddx
108 10 if (ai) goto 4
110 11 if(ai) goto 15