%N getclo3 %F $MIR/src/subs/calphase.for
%D Return sign for closure calculation for 3 baselines
%: calibration, 
%P lgm
%B
        subroutine getclo3(nbl,base,signcl) 

   Returns sign for closure calculation for 3 baselines
   WARNING::: THIS ONLY WORKS FOR # ANTENNAS

   Input:
       nbl --   (integer)  lenght of base() array
       base --  (integer)  array containing A1*256+A2 baselines
   Output:
       signcl -- (real)    array filled with +/- 1.0 for closure such that 
                           $sum_{i=1}^{nbl}{signcl(i)*phi{i}}=0$

        real signcl(*)
        integer nbl, base(*)
