28 extern int placea_(integer *ipitch, integer *voibuf, integer *obound, integer *af, integer *vwin, i…
88 /* Subroutine */ int placea_(integer *ipitch, integer *voibuf, integer *  in placea_()  argument
148 	i__ = (lrange + *ipitch - 1 - awin[((*af - 1) << 1) + 1]) / *ipitch;  in placea_()
149 	i__ *= *ipitch;  in placea_()
158 	r__1 = (real) (k - i__) / *ipitch;  in placea_()
159 	awin[(*af << 1) + 1] = i__ + i_nint(&r__1) * *ipitch;  in placea_()
167 	    awin[(*af << 1) + 1] -= *ipitch;  in placea_()
168 	    awin[(*af << 1) + 2] -= *ipitch;  in placea_()
173 	    awin[(*af << 1) + 1] += *ipitch;  in placea_()
174 	    awin[(*af << 1) + 2] += *ipitch;  in placea_()
179 	    awin[(*af << 1) + 1] -= *ipitch;  in placea_()
180 	    awin[(*af << 1) + 2] -= *ipitch;  in placea_()
185 	    awin[(*af << 1) + 1] += *ipitch;  in placea_()
186 	    awin[(*af << 1) + 2] += *ipitch;  in placea_()
201     j = (awin[(*af << 1) + 2] - awin[(*af << 1) + 1] + 1) / *ipitch * *ipitch;  in placea_()