28 …h, integer *voibuf, integer *obound, integer *af, integer *vwin, integer *awin, integer *ewin, int…
89 	obound, integer *af, integer *vwin, integer *awin, integer *ewin,   in placea_()  argument
108     awin -= 3;  in placea_()
148 	i__ = (lrange + *ipitch - 1 - awin[((*af - 1) << 1) + 1]) / *ipitch;  in placea_()
150 	i__ += awin[((*af - 1) << 1) + 1];  in placea_()
159 	awin[(*af << 1) + 1] = i__ + i_nint(&r__1) * *ipitch;  in placea_()
160 	awin[(*af << 1) + 2] = awin[(*af << 1) + 1] + l - 1;  in placea_()
166 	if (*obound >= 2 && awin[(*af << 1) + 2] > vwin[(*af << 1) + 2]) {  in placea_()
167 	    awin[(*af << 1) + 1] -= *ipitch;  in placea_()
168 	    awin[(*af << 1) + 2] -= *ipitch;  in placea_()
171 	if ((*obound == 1 || *obound == 3) && awin[(*af << 1) + 1] < vwin[(*  in placea_()
173 	    awin[(*af << 1) + 1] += *ipitch;  in placea_()
174 	    awin[(*af << 1) + 2] += *ipitch;  in placea_()
178 	while(awin[(*af << 1) + 2] > hrange) {  in placea_()
179 	    awin[(*af << 1) + 1] -= *ipitch;  in placea_()
180 	    awin[(*af << 1) + 2] -= *ipitch;  in placea_()
184 	while(awin[(*af << 1) + 1] < lrange) {  in placea_()
185 	    awin[(*af << 1) + 1] += *ipitch;  in placea_()
186 	    awin[(*af << 1) + 2] += *ipitch;  in placea_()
192 	awin[(*af << 1) + 1] = vwin[(*af << 1) + 1];  in placea_()
193 	awin[(*af << 1) + 2] = vwin[(*af << 1) + 2];  in placea_()
201     j = (awin[(*af << 1) + 2] - awin[(*af << 1) + 1] + 1) / *ipitch * *ipitch;  in placea_()
206 	ewin[(*af << 1) + 1] = awin[(*af << 1) + 2] - j + 1;  in placea_()
207 	ewin[(*af << 1) + 2] = awin[(*af << 1) + 2];  in placea_()
209 	ewin[(*af << 1) + 1] = awin[(*af << 1) + 1];  in placea_()
210 	ewin[(*af << 1) + 2] = awin[(*af << 1) + 1] + j - 1;  in placea_()