Télécharger la plaquette Cast3M


fr en

Télécharger minmaj.eso

Retour à la liste

Numérotation des lignes : 

minmaj

  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