%      LOGICAL FUNCTION SAME (S1,S2,N)<C_TITLE  SAME  Logical function for ASCII string comparison.C_ARGUMENTS7	LOGICAL*1 S1(N)  ! [I] ASCII string of length N bytes.7	LOGICAL*1 S2(N)  ! [I] ASCII string of length N bytes.2	INTEGER N	 ! [I] Length of ASCII string in bytes.C_DESCGC  The logical function SAME performs comparision between two strings, NC  the function will be result in true if the two input strings are identical.PC  SAME must be declared logical in calling routine function SAME(S1,S2,N) where1C  S1 and S2 are ASCII strings of length N bytes.CNC  The function returns true if S1 and S2 are identical, false if they're not.8C  If strings are character variables, use %ref in call.AC  R.Mehlman  UCLA 5/3/82  for compatibility with systems withoutC  character variables.	C_CALLS 0#C_HISTORY  R.Mehlman  82May03  UCLAC_END      DO 5 I=1,N$        IF (S1(I).NE.S2(I)) GO TO 10 5    CONTINUE      SAME=.TRUE.      RETURN 10   SAME=.FALSE.      RETURN	      END