Télécharger minmaj.eso

Retour à la liste

Numérotation des lignes :

  1. C MINMAJ SOURCE JC220346 14/01/30 21:15:13 7932
  2. ************************************************************************
  3. * NOM : MINMAJ
  4. * DESCRIPTION : Convertit les minuscules en majuscules dans une chaine
  5. ************************************************************************
  6. * ENTRÉES :: CHA1 = chaine de caracteres avant conversion
  7. * SORTIES :: CHA1 = chaine de caracteres apres conversion
  8. ************************************************************************
  9. * HISTORIQUE : 24/01/2014 : JCARDO : création de la subroutine
  10. * HISTORIQUE :
  11. * HISTORIQUE :
  12. ************************************************************************
  13. SUBROUTINE MINMAJ(CHA1)
  14.  
  15. IMPLICIT INTEGER(I-N)
  16. IMPLICIT REAL*8(A-H,O-Z)
  17.  
  18. CHARACTER*(*) CHA1
  19.  
  20. CHARACTER*26 MINU,MAJU
  21. DATA MINU/'abcdefghijklmnopqrstuvwxyz'/
  22. DATA MAJU/'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/
  23.  
  24. CALL LENCHA(CHA1,L)
  25.  
  26. DO I=1,L
  27. J=INDEX(MINU,CHA1(I:I))
  28. IF (J.NE.0) CHA1(I:I)=MAJU(J:J)
  29. ENDDO
  30.  
  31. RETURN
  32.  
  33. END
  34.  
  35.  

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