ichkstr.f

Go to the documentation of this file.

C> @file
C> @author ATOR @date 2005-11-29
    
C> THIS FUNCTION COMPARES A SPECIFIED NUMBER OF CHARACTERS
C>   FROM AN INPUT CHARACTER ARRAY AGAINST THE SAME NUMBER OF CHARACTERS
C>   FROM AN INPUT CHARACTER STRING AND DETERMINES WHETHER THE TWO ARE
C>   EQUIVALENT.  THE CHARACTER ARRAY IS ASSUMED TO BE IN ASCII, WHEREAS
C>   THE CHARACTER STRING IS ASSUMED TO BE IN THE NATIVE CHARACTER SET
C>   (I.E. ASCII OR EBCDIC) OF THE LOCAL MACHINE.
C>
C> PROGRAM HISTORY LOG:
C> 2005-11-29  J. ATOR    -- ORIGINAL AUTHOR
C>
C> USAGE:    ICHKSTR (STR, CHR, N)
C>   INPUT ARGUMENT LIST:
C>     STR      - CHARACTER*(*): N-CHARACTER STRING IN ASCII OR EBCDIC,
C>                DEPENDING ON THE NATIVE MACHINE
C>     CHR      - CHARACTER*1: ARRAY OF N CHARACTERS IN ASCII
C>     N        - INTEGER: NUMBER OF CHARACTERS TO BE COMPARED
C>
C>   OUTPUT ARGUMENT LIST:
C>     ICHKSTR  - INTEGER: RETURN VALUE:
C>                  0 = STR(1:N) AND (CHR(I),I=1,N) ARE EQUIVALENT
C>                  1 = STR(1:N) AND (CHR(I),I=1,N) ARE NOT EQUIVALENT
C>
C> REMARKS:
C>    THIS ROUTINE CALLS:        CHRTRNA
C>    THIS ROUTINE IS CALLED BY: CRBMG    READERME
C>                               Normally not called by any application
C>                               programs. 
C>
    FUNCTION ichkstr(STR,CHR,N)



    CHARACTER*(*) str

    CHARACTER*80  cstr
    CHARACTER*1   chr(n)

C-----------------------------------------------------------------------
C-----------------------------------------------------------------------

C   Copy CHR into CSTR and, if necessary, convert the latter
C   to EBCDIC (i.e. if the local machine uses EBCDIC) so that
C   the subsequent comparison will always be valid.

    CALL chrtrna(cstr,chr,n)

C   Compare CSTR to STR.

    IF(cstr(1:n).EQ.str(1:n)) THEN
        ichkstr = 0
    ELSE
        ichkstr = 1
    ENDIF   

    RETURN
    END