& iobcs .EQ. obcspos .AND.
integer obcspos
obcspos = obcsglo
O obcspos,
obcspos = iobcs
obcspos = -1
& icvrec, itile, jtile, layer, obcspos,
iobcsmem ( ichknum ) = obcspos