ichkstr.f File Reference

Go to the source code of this file.

Functions/Subroutines
function	ichkstr (STR, CHR, N)
	THIS FUNCTION COMPARES A SPECIFIED NUMBER OF CHARACTERS FROM AN INPUT CHARACTER ARRAY AGAINST THE SAME NUMBER OF CHARACTERS FROM AN INPUT CHARACTER STRING AND DETERMINES WHETHER THE TWO ARE EQUIVALENT. More...

Detailed Description

Author

ATOR

Date

2005-11-29

Definition in file ichkstr.f.

Function/Subroutine Documentation

ichkstr()

function ichkstr	(	character*(*)	STR,
		character*1, dimension(n)	CHR,
			N
	)

THIS FUNCTION COMPARES A SPECIFIED NUMBER OF CHARACTERS FROM AN INPUT CHARACTER ARRAY AGAINST THE SAME NUMBER OF CHARACTERS FROM AN INPUT CHARACTER STRING AND DETERMINES WHETHER THE TWO ARE EQUIVALENT.

THE CHARACTER ARRAY IS ASSUMED TO BE IN ASCII, WHEREAS THE CHARACTER STRING IS ASSUMED TO BE IN THE NATIVE CHARACTER SET (I.E. ASCII OR EBCDIC) OF THE LOCAL MACHINE.

PROGRAM HISTORY LOG: 2005-11-29 J. ATOR – ORIGINAL AUTHOR

USAGE: ICHKSTR (STR, CHR, N) INPUT ARGUMENT LIST: STR - CHARACTER*(*): N-CHARACTER STRING IN ASCII OR EBCDIC, DEPENDING ON THE NATIVE MACHINE CHR - CHARACTER*1: ARRAY OF N CHARACTERS IN ASCII N - INTEGER: NUMBER OF CHARACTERS TO BE COMPARED

OUTPUT ARGUMENT LIST: ICHKSTR - INTEGER: RETURN VALUE: 0 = STR(1:N) AND (CHR(I),I=1,N) ARE EQUIVALENT 1 = STR(1:N) AND (CHR(I),I=1,N) ARE NOT EQUIVALENT

REMARKS: THIS ROUTINE CALLS: CHRTRNA THIS ROUTINE IS CALLED BY: CRBMG READERME Normally not called by any application programs.

Definition at line 32 of file ichkstr.f.

References chrtrna(), and ichkstr().

Referenced by crbmg(), ichkstr(), and readerme().