SEQUENCE D'APPEL...
       spblow  SPIN SPOUT1 SPOUT2 INPUT OUTPUT [ -kind VAL1 ]
 
 
      AUTEUR - B.Dugas, DEC 03/88.
      LAST REVISION: $Header: /home/cvs/RMNLIB/utils/rdiag/lspgm/spblow.ptn,v 4.8 2014/09/25 20:20:53 dugas Exp $
 
 
      DESCRIPTION...
       CE PROGRAMME AJOUTE OU ENLEVE LES ZEROS CONTENUS DANS DES
       CHAMPS SPECTRAUX SYMMETRIQUES OU  ANTI-SYMMETRIQUES. TOUS
       LES CHAMPS D'ENTREE DOIVENT ETRE DE LA MEME TAILLE. 
 
 
      FICHIER I/O...
       SPIN   = GRILLES SPECTRALES HEMISPHERIQUES OU GLOBALES (SELON KIND)
       SPOUT1 = GRILLES SPECTRALES GLOBALES OU SYMMETRIQUE-HEMISPHERIQUES
       SPOUT1 = GRILLES SPECTRALES ANTI-SYMMETRIQUE-HEMISPHERIQUES.
               (SEULEMENT SI "KIND.EQ.0")
 
 
 
      PARAMETRE...
 
       KIND = EST-CE QU'ON AGRANDIT  (KIND.NE.0) LES CHAMPS OU BIEN, 
              EST-CE QU'ON LES RAPETISSE (KIND.EQ.0) ? SI ON AGRANDIT, 
              LE SIGNE DE KIND NOUS DONNE LA PARITE DES CHAMPS D'I/O : 
              SYMMETRIQUE/POSITIF ET ANTI-SYMMETRIQUE/NEGATIF.
 
       READ(5,5000) KIND
 5000  FORMAT(10X,I5)
 
 
      EXEMPLE DE LIGNE D'APPEL...
 
  SPBLOW        -1.0
 
         0123456789012345678901234567890123456789012345678901234567890
         1         2         3         4         5         6         7
 
 
      EXIT CONDITIONS...
        0 NO PROBLEMS
        1 ANTI-SYMMETRIC COEFFICIENT FILE NOT PROVIDED IN BLOW-UP MODE
        2 INPUT TYPE NOT SPECTRAL
        3 MISMATCH BETWEEN REQUESTED MODE AND INPUT FILE LENGHT
        4 NO INPUT INFORMATION PROVIDED
        5 EMPTY SPECTRAL INPUT FILE