Esope source files

   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 :       
  23 :       CALL LENCHA(CHA1,L)
  24 :       
  25 :       DO I=1,L
  26 :           J=INDEX(MINU,CHA1(I:I))                                          
  27 :           IF (J.NE.0) CHA1(I:I)=MAJU(J:J)    
  28 :       ENDDO
  29 :       
  30 :       RETURN
  31 :       
  32 :       END
  33 :