Lines Matching refs:YC
98 INTEGER XC,YC,ZC
152 DO 110 YC = YCMAX,0,-1
154 ZC = YCMAX - YC
162 IF (.NOT.DIFFY .AND. YE+YC.EQ.0) THEN
168 TEMP2 (M) = TEMP1 (M) * INT2DY (M,YE,YC)
220 DO 210 YC = YCMAX,0,-1
222 ZC = YCMAX - YC
230 IF (.NOT.DIFFY .AND. YE+YC.EQ.0) THEN
236 TEMP2 (N) = TEMP1 (N) * INT2DY (N,YE,YC)
295 DO 310 YC = YCMAX,0,-1
297 ZC = YCMAX - YC
305 IF (.NOT.DIFFY .AND. YE+YC.EQ.0) THEN
311 TEMP2 (N) = TEMP1 (N) * INT2DY (N,YE,YC)
373 DO 410 YC = YCMAX,0,-1
375 ZC = YCMAX - YC
383 IF (.NOT.DIFFY .AND. YE+YC.EQ.0) THEN
389 TEMP2 (N) = TEMP1 (N) * INT2DY (N,YE,YC)
454 DO 510 YC = YCMAX,0,-1
456 ZC = YCMAX - YC
464 IF (.NOT.DIFFY .AND. YE+YC.EQ.0) THEN
470 TEMP2 (N) = TEMP1 (N) * INT2DY (N,YE,YC)
538 DO 610 YC = YCMAX,0,-1
540 ZC = YCMAX - YC
548 IF (.NOT.DIFFY .AND. YE+YC.EQ.0) THEN
554 TEMP2 (N) = TEMP1 (N) * INT2DY (N,YE,YC)
625 DO 710 YC = YCMAX,0,-1
627 ZC = YCMAX - YC
635 IF (.NOT.DIFFY .AND. YE+YC.EQ.0) THEN
641 TEMP2 (N) = TEMP1 (N) * INT2DY (N,YE,YC)
715 DO 810 YC = YCMAX,0,-1
717 ZC = YCMAX - YC
725 IF (.NOT.DIFFY .AND. YE+YC.EQ.0) THEN
731 TEMP2 (N) = TEMP1 (N) * INT2DY (N,YE,YC)
808 DO 910 YC = YCMAX,0,-1
810 ZC = YCMAX - YC
818 IF (.NOT.DIFFY .AND. YE+YC.EQ.0) THEN
824 TEMP2 (N) = TEMP1 (N) * INT2DY (N,YE,YC)
915 DO 1010 YC = YCMAX,0,-1
917 ZC = YCMAX - YC
925 IF (.NOT.DIFFY .AND. YE+YC.EQ.0) THEN
931 TEMP2 (N) = TEMP1 (N) * INT2DY (N,YE,YC)