{}
{   The purpose of this request is to search an array of source library
{ deck names for a deck and to return the index in the array of that deck
{ if it is found.
{}
{      RAP$BIN_SEARCH (NAME, NEW_ARRAY, J, FOUND)
{}
{ NAME: (input) This parameter specifies the deck name to search for.
{}
{ NEW_ARRAY: (input) This parameter specifies an array containing deck names
{        from the new source library and an index which specifies a matching
{        deck name from the old source library.
{}
{ J: (input - output) This parameter specifies an index into the new array.
{        It specifies the lowerbound to begin searching in the array, and if
{        found, the location of the matching entry.
{}
{ FOUND: (output) This parameter specifies whether or not NAME is found in
{        NEW_ARRAY.
{}

