IBM XL Fortran for AIX, V12.1 (5724-U82) Version 12.01.0000.0001 --- ../core/string_utils.F 03/09/11 11:04:55
 
>>>>> OPTIONS SECTION <<<<<
***   Options In Effect   ***
  
         ==  On / Off Options  ==
         CR              DBG             ESCAPE          FULLPATH
         I4              INLGLUE         NOLIBESSL       NOLIBPOSIX
         OBJECT          SOURCE          STRICT          SWAPOMP
         THREADED        UNWIND          ZEROSIZE
  
         ==  Options Of Integer Type ==
         ALIAS_SIZE(65536)     MAXMEM(-1)            OPTIMIZE(2)
         SPILLSIZE(2000)       STACKTEMP(0)
  
         ==  Options Of Character Type  ==
         64(LARGETYPE)         ALIAS(STD,NOINTPTR)   ALIGN(BINDC(POWER),STRUCT(NATURAL))
         ARCH(PWR6)            ATTR(FULL)            AUTODBL(NONE)
         DESCRIPTOR(V1)        DIRECTIVE(IBM*,IBMT)  ENUM()
         FLAG(I,I)             FLOAT(RNDSNGL,MAF,FOLD,RNGCHK,SINGLE)
         FREE(F90)             HALT(S)               IEEE(NEAR)
         INTSIZE(4)            LANGLVL(EXTENDED)     REALSIZE(4)
         NOSAVE()              TUNE(PWR6)            UNROLL(AUTO)
         XREF(FULL)            XLF2003(NOPOLYMORPHIC,NOBOZLITARGS,NOSTOPEXCEPT,NOVOLATILE,NOAUTOREALLOC,OLDNANINF)
         XLF77(LEADZERO,BLANKPAD)
         XLF90(NOSIGNEDZERO,NOAUTODEALLOC,OLDPAD)
  
>>>>> SOURCE SECTION <<<<<
          1 |#line 1 "../core/string_utils.F"
          1 |!BOP
          2 |!
          3 |! Released May 2004
          4 |!
          5 |! See SOFTWARE DISTRIBUTION POLICY for software distribution policies
          6 |!
          7 |! The LIS source code and documentation are in the public domain,
          8 |! available without fee for educational, research, non-commercial and
          9 |! commercial purposes.  Users may distribute the binary or source
         10 |! code to third parties provided this statement appears on all copies and
         11 |! that no charge is made for such copies.
         12 |!
         13 |! NASA GSFC MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THE
         14 |! SOFTWARE FOR ANY PURPOSE.  IT IS PROVIDED AS IS WITHOUT EXPRESS OR
         15 |! IMPLIED WARRANTY.  NEITHER NASA GSFC NOR THE US GOVERNMENT SHALL BE
         16 |! LIABLE FOR ANY DAMAGES SUFFERED BY THE USER OF THIS SOFTWARE.
         17 |!
         18 |! See COPYRIGHT.TXT for copyright details.
         19 |!
         20 |! !MODULE: string_utils
         21 |!
         22 |! !DESCRIPTION:
         23 |! This module contains routines that perform string manipulations
         24 |!
         25 |! !REVISION HISTORY:
         26 |! 14 Nov 2002: Sujay Kumar: Initial Version, adopted from CLM
         27 |!
         28 |! !INTERFACE:
         29 |module string_utils
         30 |!EOP
         31 |  implicit none
         32 |  private
         33 |  public ::&
         34 |       to_upper   ! Convert character string to upper case
         35 |contains
         36 |!BOP
         37 |!
         38 |! !ROUTINE: to_upper
         39 |!
         40 |! !DESCRIPTION:
         41 |! Convert character string to upper case.
         42 |!
         43 |! Method:
         44 |! Use achar and iachar intrinsics to ensure use of ascii collating sequence.
         45 |!
         46 |! !INTERFACE:
         47 |  function to_upper(str)
         48 |    implicit none
         49 |! !ARGUMENTS:
         50 |    character(len=*), intent(in) :: str      ! String to convert to upper case
         51 |    character(len=len(str))      :: to_upper
         52 |!EOP
         53 |    integer :: i                ! Index
         54 |    integer :: aseq             ! ascii collating sequence
         55 |    character(len=1) :: ctmp    ! Character temporary
         56 |!BOC
         57 |    do i = 1, len(str)
         58 |       ctmp = str(i:i)
         59 |       aseq = iachar(ctmp)
         60 |       if ( aseq >= 97  .and.  aseq <= 122 ) ctmp = achar(aseq - 32)
         61 |       to_upper(i:i) = ctmp
         62 |    end do
         63 |!EOC
         64 |  end function to_upper
         65 |
         66 |end module string_utils
 
>>>>> ATTRIBUTE AND CROSS REFERENCE SECTION <<<<<
 
 
 
IDENTIFIER NAME                  CROSS REFERENCE AND ATTRIBUTES
 
achar                            Pure Intrinsic
                                 0-60.53
 
aseq                             Automatic, Integer(4), Offset: 0, Alignment: full word
                                 0-54.16$  0-59.8@  0-60.13  0-60.32  0-60.59
 
ctmp                             Automatic, Character(1), Offset: 0, Alignment: full word
                                 0-55.25$  0-58.8@  0-59.22  0-60.46@  0-61.24
 
i                                Automatic, Integer(4), Offset: 0, Alignment: full word
                                 0-53.16$  0-57.8@  0-58.19  0-58.21  0-61.17  0-61.19
 
iachar                           Pure Intrinsic
                                 0-59.15
 
len                              Pure Intrinsic
                                 0-51.19  0-57.15
 
str                              Reference argument, Intent (IN), Character*(*), Offset: 0, Alignment: byte
                                 0-50.37$  0-47.21  0-51.23  0-51.23  0-57.19  0-58.15
 
string_utils                     Nonintrinsic Module
                                 0-29.8$
 
to_upper                         Function Character*(?)
                                 0-51.37$  0-61.8@
 
to_upper                         Public, Module Function Character(-3)
                                 0-34.8$  0-47.12$
 
** string_utils   === End of Compilation 1 ===
 
>>>>> FILE TABLE SECTION <<<<<
 
 
                                       FILE CREATION        FROM
FILE NO   FILENAME                    DATE       TIME       FILE    LINE
     0    ../core/string_utils.F      03/09/11   11:04:55
 
 
>>>>> COMPILATION EPILOGUE SECTION <<<<<
 
 
FORTRAN Summary of Diagnosed Conditions
 
TOTAL   UNRECOVERABLE  SEVERE       ERROR     WARNING    INFORMATIONAL
               (U)       (S)         (E)        (W)          (I)
    0           0         0           0          0            0
 
 
    Source records read.......................................      67
1501-510  Compilation successful for file string_utils.F.
1501-543  Object file created.