28 extern int placea_(integer *ipitch, integer *voibuf, integer *obound, integer *af, integer *vwin, i…
89 	obound, integer *af, integer *vwin, integer *awin, integer *ewin,   in placea_()  argument
113     lrange = (*af - 2) * *lframe + 1;  in placea_()
114     hrange = *af * *lframe;  in placea_()
139     allv = voibuf[((*af - 2) << 1) + 2] == 1;  in placea_()
140     allv = allv && voibuf[((*af - 1) << 1) + 1] == 1;  in placea_()
141     allv = allv && voibuf[((*af - 1) << 1) + 2] == 1;  in placea_()
142     allv = allv && voibuf[(*af << 1) + 1] == 1;  in placea_()
143     allv = allv && voibuf[(*af << 1) + 2] == 1;  in placea_()
144     winv = voibuf[(*af << 1) + 1] == 1 || voibuf[(*af << 1) + 2] == 1;  in placea_()
148 	i__ = (lrange + *ipitch - 1 - awin[((*af - 1) << 1) + 1]) / *ipitch;  in placea_()
150 	i__ += awin[((*af - 1) << 1) + 1];  in placea_()
155 	k = (vwin[(*af << 1) + 1] + vwin[(*af << 1) + 2] + 1 - l) / 2;  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_()
172 		af << 1) + 1]) {  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_()
203 	ewin[(*af << 1) + 1] = vwin[(*af << 1) + 1];  in placea_()
204 	ewin[(*af << 1) + 2] = vwin[(*af << 1) + 2];  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_()