#include "TrueBASIC.h"

void span(int site[][65], int *vspan, int L);

void span(int site[][65], int *vspan, int L)
{
    int bottom, nbot, ntop, top;

    // 縦方向に差し渡しをつなぐクラスターが存在するかどうかを調べる
    (*vspan) = 0;
    for(bottom = 1; bottom <= L; ++bottom)
    {
        if(site[bottom][1] > 0)
        {
            nbot = site[bottom][1];
            for(top = 1; top <= L; ++top)
            {
                if(site[top][L] > 0)
                {
                    ntop = site[top][L];
                    if(ntop == nbot)
                    {
                        (*vspan) = ntop;
                        return;
                    }
                }
            }
        }
    }
}