Télécharger la plaquette Cast3M


fr en

Télécharger netcha.eso

Retour à la liste

Numérotation des lignes : 

netcha

  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.  
  33.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales