Esope source files

   1 : C NETCHA    SOURCE    JC220346  12/06/18    21:15:10     7403           
   2 : ************************************************************************
   3 : * NOM         : netcha.eso
   4 : * DESCRIPTION : nettoie les caractères "exotiques" dans une chaîne
   5 : ************************************************************************
   6 : * HISTORIQUE :  7/06/2012 : JCARDO : création de la subroutine
   7 : * HISTORIQUE :
   8 : * HISTORIQUE :
   9 : ************************************************************************
  10 : * Prière de PRENDRE LE TEMPS DE COMPLÉTER LES COMMENTAIRES
  11 : * en cas de modification de ce sous-programme afin de faciliter
  12 : * la maintenance !
  13 : ************************************************************************
  14 : * ENTRÉE :: CH=chaîne avec caractères invalides
  15 : * SORTIE :: CH=chaîne sans caractères invalides
  16 : ************************************************************************
  17 :       SUBROUTINE NETCHA(CH)
  18 :       IMPLICIT INTEGER(I-N)
  19 : 
  20 :       CHARACTER*64 CHAROK
  21 :       PARAMETER(CHAROK='abcdefghijklmnopqrstuvwxyz'//
  22 :      .                 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'//
  23 :      .                 '0123456789-_.')
  24 : *                       #%&£$µ
  25 :       CHARACTER*(*) CH
  26 : 
  27 :       DO I=1,LEN(CH)
  28 :           IF (INDEX(CHAROK,CH(I:I)).EQ.0) CH(I:I)=' '
  29 :       ENDDO
  30 : 
  31 :       END        
  32 :