 
      CALL SEQUENCE...
       bary  XIN DATAIN XOUT INPUT OUTPUT [-a VAL1 -kind VAL2 -ly VAL3]
 
 
      AUTHORS - S.TURNER, B.DENIS, S.BINER,  JUL 08/93.
      LAST REVISION: $Header: /home/cvs/RMNLIB/utils/rdiag/lspgm/bary.ptn,v 4.8 2014/09/25 20:20:45 dugas Exp $
 
 
      DESCRIPTION...
       bary FAIT LA MOYENNE SELON Y
 
 
      PURPOSE
        - FAIRE LA MOYENNE ENTRE DEUX POINTS CONSECUTIFS EN Y POUR UN
          CHAMP QUI EST DANS XIN, ET DONT LES CARACTERISTIQUES SONT
          DANS DATAIN.
        - POSSIBILITE DE FAIRE INTERPOLATION CUBIQUE (4 POINTS)
          SAUF A LA FRONTIERE.
 
 
      INPUT FILES...
        XIN    = INPUT FILE CONTAINING REGIONAL DATA
        DATAIN = (OPTIONAL) MODEL INFORMATION FILE
 
      OUTPUT FILE...
        XOUT = OUTPUT FILE
 
 
       PARAMETER...
 
        OPT    (a)    = 0, POUR NE PAS COMBLER LES FRONTIERES
                        1, POUR COMBLER LES FRONTIERES AVEC
                           LA VALEUR LA PLUS PROCHE
        INTERP (kind) = 4, POUR INTERPOLATION CUBIQUE. NOTEZ
                           QUE TOUT AUTRE NOMBRE EST IGNORE
 
        NJ     (ly)   = NOMBRE DE POINTS DE GRILLE SELON Y. LA VALEUR
                        PAR DEFAUT EST LA TAILLE DE LA GRILLE SELON Y+1.
                        SI LE FICHIER DATAIN EXISTE, CE PARAMETRE SERA
                        DEFINI PAR DATAIN(2).
 
        READ(5,5010) OPT,INTERP
        READ(5,5011) NJ
 5010   FORMAT(10X,I2,10X,I2)
 5011   FORMAT(10X,I5)
 
 
       EXAMPLE OF INPUT CARD...
 
 BARY1     1 INTERPOLE 1
 BARY2      121
 
         0123456789012345678901234567890123456789012345678901234567890
         1         2         3         4         5         6         7
 
 
      EXIT CONDITIONS...
        0 NO PROBLEMS
        1 READ ILLEGAL OPT VALUE
        2 PROBLEMS READING FILE XIN
        4 OPT=1 AND IBUF(6).EQ.NJ
        5 PROBLEMS READING THE FIRST DIRECTIVE CARD
        6 PROBLEMS READING THE SECOND DIRECTIVE CARD
        7 UNSUPPORTED GRID TYPE
        8 MORE THAN ONE GRID CONFIGURATION
 
