c2lowerCase.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	c2lowercase (cu, cl)
subroutine	c2uppercase (cl, cu)

Function/Subroutine Documentation

c2lowercase()

subroutine c2lowercase	(	character*(*)	cu,
		character*(*)	cl
	)

Definition at line 11 of file c2lowerCase.f.

Referenced by cbeginrun(), and cprocprimdt().

!       
!        convert [A-Z] in "cu" into [a-z] and put it in "cl"
!        This is for standard ASCII.
!
!    cu: character string. input
!    cl: //              . output.  cl may be cu.
!
!             if cl is shorter than cu, overflowing part
!          is not moved.
!
      implicit none
      character*(*) cu, cl
!
      integer i, ic, imax
!

      imax =  min(len(cu), len(cl))
      do i = 1, imax
         ic = ichar( cu(i:i) )
         if(  ic .ge. 65 .and. ic .le. 90 ) then  ! A-Z
             cl(i:i) = char(ic+32)
         else
             cl(i:i) = cu(i:i)
         endif
      enddo

Here is the caller graph for this function:

c2uppercase()

subroutine c2uppercase	(	character*(*)	cl,
		character*(*)	cu
	)

Definition at line 38 of file c2lowerCase.f.

!       
!        convert [a-z] in "cl" into [A-Z] and put it in "cu"
!        This is for standard ASCII.
!
!    cl: character string. input
!    cu: //              . output.  cu may be cl.
!
!             if cu is shorter than cl, overflowing part
!          is not moved.
!
      implicit none
      character*(*) cl, cu
!
      integer i, ic, imax
!

      imax =  min(len(cu), len(cl))
      do i = 1, imax
         ic = ichar( cl(i:i) )
         if(  ic .ge. 97 .and. ic .le. 122 ) then  ! a-z
             cu(i:i) = char(ic-32)
         else
             cu(i:i) = cl(i:i)
         endif
      enddo