16 extern int placev_(integer *osbuf, integer *osptr, integer *oslen, integer *obound, integer *vwin, …
79 /* Subroutine */ int placev_(integer *osbuf, integer *osptr, integer *oslen,   in placev_()  argument
166     --osbuf;  in placev_()
176 	if (osbuf[osptr1] <= hrange) {  in placev_()
183     if (osptr1 <= 1 || osbuf[osptr1 - 1] < lrange) {  in placev_()
193 	    if (osbuf[q] < lrange) {  in placev_()
203 	    if (osbuf[i__] - osbuf[q] >= *minwin) {  in placev_()
212 	if (! crit && osbuf[q] > max(i__1,i__2)) {  in placev_()
213 	    vwin[(*af << 1) + 2] = osbuf[q] - 1;  in placev_()
220 	    vwin[(*af << 1) + 1] = osbuf[q];  in placev_()
226 	    if (osbuf[q] > vwin[(*af << 1) + 1] + *maxwin) {  in placev_()
229 	    if (osbuf[q] < vwin[(*af << 1) + 1] + *minwin) {  in placev_()
232 	    vwin[(*af << 1) + 2] = osbuf[q] - 1;  in placev_()