Lines Matching refs:YC
93 INTEGER XA,YA,ZA,XB,YB,ZB,XC,YC,ZC
142 DO 110 YC = YCMAX,0,-1
144 ZC = YCMAX - YC
154 IF (.NOT.DIFFY .AND. YA+YB+YC.EQ.0) THEN
160 TEMP2 (M) = TEMP1 (M) * INT2DY (M,YA,YB,YC)
208 DO 210 YC = YCMAX,0,-1
210 ZC = YCMAX - YC
220 IF (.NOT.DIFFY .AND. YA+YB+YC.EQ.0) THEN
226 TEMP2 (N) = TEMP1 (N) * INT2DY (N,YA,YB,YC)
281 DO 310 YC = YCMAX,0,-1
283 ZC = YCMAX - YC
293 IF (.NOT.DIFFY .AND. YA+YB+YC.EQ.0) THEN
299 TEMP2 (N) = TEMP1 (N) * INT2DY (N,YA,YB,YC)
357 DO 410 YC = YCMAX,0,-1
359 ZC = YCMAX - YC
369 IF (.NOT.DIFFY .AND. YA+YB+YC.EQ.0) THEN
375 TEMP2 (N) = TEMP1 (N) * INT2DY (N,YA,YB,YC)
436 DO 510 YC = YCMAX,0,-1
438 ZC = YCMAX - YC
448 IF (.NOT.DIFFY .AND. YA+YB+YC.EQ.0) THEN
454 TEMP2 (N) = TEMP1 (N) * INT2DY (N,YA,YB,YC)
518 DO 610 YC = YCMAX,0,-1
520 ZC = YCMAX - YC
530 IF (.NOT.DIFFY .AND. YA+YB+YC.EQ.0) THEN
536 TEMP2 (N) = TEMP1 (N) * INT2DY (N,YA,YB,YC)
603 DO 710 YC = YCMAX,0,-1
605 ZC = YCMAX - YC
615 IF (.NOT.DIFFY .AND. YA+YB+YC.EQ.0) THEN
621 TEMP2 (N) = TEMP1 (N) * INT2DY (N,YA,YB,YC)
691 DO 810 YC = YCMAX,0,-1
693 ZC = YCMAX - YC
703 IF (.NOT.DIFFY .AND. YA+YB+YC.EQ.0) THEN
709 TEMP2 (N) = TEMP1 (N) * INT2DY (N,YA,YB,YC)
782 DO 910 YC = YCMAX,0,-1
784 ZC = YCMAX - YC
794 IF (.NOT.DIFFY .AND. YA+YB+YC.EQ.0) THEN
800 TEMP2 (N) = TEMP1 (N) * INT2DY (N,YA,YB,YC)
888 DO 1010 YC = YCMAX,0,-1
890 ZC = YCMAX - YC
900 IF (.NOT.DIFFY .AND. YA+YB+YC.EQ.0) THEN
906 TEMP2 (N) = TEMP1 (N) * INT2DY (N,YA,YB,YC)