Lines Matching refs:YC
176 INTEGER XC,YC,ZC,XD,YD,ZD
237 DO 112 YC = YCMAX,0,-1
239 ZC = YCMAX - YC
247 IF (.NOT.DIFFY .AND. YE+YC+YD.EQ.0) THEN
254 + * INT2DY (M,YE,YC,YD)
317 DO 212 YC = YCMAX,0,-1
319 ZC = YCMAX - YC
327 IF (.NOT.DIFFY .AND. YE+YC+YD.EQ.0) THEN
334 + * INT2DY (N,YE,YC,YD)
404 DO 312 YC = YCMAX,0,-1
406 ZC = YCMAX - YC
414 IF (.NOT.DIFFY .AND. YE+YC+YD.EQ.0) THEN
421 + * INT2DY (N,YE,YC,YD)
494 DO 412 YC = YCMAX,0,-1
496 ZC = YCMAX - YC
504 IF (.NOT.DIFFY .AND. YE+YC+YD.EQ.0) THEN
511 + * INT2DY (N,YE,YC,YD)
587 DO 512 YC = YCMAX,0,-1
589 ZC = YCMAX - YC
597 IF (.NOT.DIFFY .AND. YE+YC+YD.EQ.0) THEN
604 + * INT2DY (N,YE,YC,YD)
683 DO 612 YC = YCMAX,0,-1
685 ZC = YCMAX - YC
693 IF (.NOT.DIFFY .AND. YE+YC+YD.EQ.0) THEN
700 + * INT2DY (N,YE,YC,YD)
782 DO 712 YC = YCMAX,0,-1
784 ZC = YCMAX - YC
792 IF (.NOT.DIFFY .AND. YE+YC+YD.EQ.0) THEN
799 + * INT2DY (N,YE,YC,YD)
884 DO 812 YC = YCMAX,0,-1
886 ZC = YCMAX - YC
894 IF (.NOT.DIFFY .AND. YE+YC+YD.EQ.0) THEN
901 + * INT2DY (N,YE,YC,YD)
989 DO 912 YC = YCMAX,0,-1
991 ZC = YCMAX - YC
999 IF (.NOT.DIFFY .AND. YE+YC+YD.EQ.0) THEN
1006 + * INT2DY (N,YE,YC,YD)
1108 DO 1012 YC = YCMAX,0,-1
1110 ZC = YCMAX - YC
1118 IF (.NOT.DIFFY .AND. YE+YC+YD.EQ.0) THEN
1125 + * INT2DY (N,YE,YC,YD)