iw3mat.f File Reference

Test n words starting at l1, l2 for equality, return .true. More...

Go to the source code of this file.

Functions/Subroutines
logical function	iw3mat (L1, L2, N)
	Program history log: More...

Detailed Description

Test n words starting at l1, l2 for equality, return .true.

if all equal; otherwise .false.

Author

J.D. Stackpole

Date

1986-01-13

Definition in file iw3mat.f.

Function/Subroutine Documentation

iw3mat()

logical function iw3mat	(	integer, dimension(*)	L1,
		integer, dimension(*)	L2,
			N
	)

Program history log:

• J.D. Stackpole 1986-01-13
• Ralph Jones 1990-03-15 Convert to cray cft77 fortran.

Parameters

[in]	L1	Integer array to match with l2.
[in]	L2	Integer array to match with l1.
[in]	N	Number of integer words to test for match.

Returns

IW3MAT Logical .true. if l1 and l2 match on all words, logical .false. if not match on any word.

Author

J.D. Stackpole

Date

1986-01-13

Definition at line 17 of file iw3mat.f.