minus.f

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

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