CALL SEQUENCE...
       laslon  X Y INPUT OUTPUT [ -kind VAL1 ]
 
 
      AUTEUR - B.Dugas, AVRIL 01/87.
      LAST REVISION: $Header: /home/cvs/RMNLIB/utils/rdiag/lspgm/laslon.ptn,v 4.11 2014/09/25 20:20:50 dugas Exp $
 
 
      DESCRIPTION...
       laslon  - ENLEVER OU AJOUTER UNE DERNIERE COLONNE
                 A TOUTES LES GRILLE D'UN FICHIER. DANS
                 UN FICHIER LATITUDE-LONGITUDE, CETTE
                 COLONNE CORREPONDS A UNE LONGITUDE.
 
 
      FICHIER D'ENTREE...
       X = FICHIER CONTENANT DES GRILLES DE SURFACE.
 
      FICHIER DE SORTIE...
       Y = FICHIER CONTENANT DES GRILLES DE SURFACE MODIFIEE.
 
 
      PARAMETRE D'ENTREE...
       KIND = 0, POUR ENLEVER LA DERNIERE LONGITUDE ET
              1, POUR AJOUTER UNE DERNIERE LONGITUDE DE TELLE SORTE QUE
                 Y(DERNIERE LONGITUDE) = Y(PREMIERE LONGITUDE).
 
       READ 5,5000 ) KIND
 5000  FORMAT(10X,I5)
 
 
      EXEMPLE...
 
 LASLON       1
 
         0123456789012345678901234567890123456789012345678901234567890
         1         2         3         4         5         6         7
 
 
      EXIT CONDITIONS...
        0 NO PROBLEMS
        1 DATA TYPE NOT GRID
        2 MORE THAN ONE SIZE IN X
        3 ERROR ABORT READING INPUT
        4 PREMATURE EOF ON X