majus.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\damocles\majus.f
00002 !
00051                      SUBROUTINE MAJUS
00052 !                    ****************
00053 !
00054      &(CHAINE)
00055 !
00056 !***********************************************************************
00057 ! DAMOCLES   V6P0                                   21/08/2010
00058 !***********************************************************************
00059 !
00060 !
00061 !
00062 !
00063 !
00064 !
00065 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00066 !| CHAINE         |<->| CHAINE DE CARACTERES A MODIFIER
00067 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00068 !
00069       IMPLICIT NONE
00070       INTEGER LNG,LU
00071       COMMON/INFO/LNG,LU
00072 !
00073       CHARACTER*26 STMAJ,STMIN
00074       CHARACTER*(*) CHAINE
00075 !
00076       INTEGER I,IPOS
00077 !
00078       INTRINSIC LEN,INDEX
00079 !
00080       DATA STMAJ /'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/
00081       DATA STMIN /'abcdefghijklmnopqrstuvwxyz'/
00082 !
00083 !----------------------------------------------------------------------
00084 !
00085       DO I=1,LEN(CHAINE)
00086 !
00087       IPOS=INDEX(STMIN,CHAINE(I:I))
00088       IF(IPOS.NE.0) CHAINE(I:I)=STMAJ(IPOS:IPOS)
00089 !
00090       ENDDO ! I
00091 !
00092 !-----------------------------------------------------------------------
00093 !
00094       RETURN
00095       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0