C Illustrates the structured use of GOTO

C Created:  Joe Zachary, November 4, 1992
C Modified:


C This function returns 1 if the array DATA contains the number N,
C and returns 0 otherwise.

      INTEGER FUNCTION SEARCH (DATA, SIZE, N)

      IMPLICIT NONE
      INTEGER SIZE, DATA(SIZE), N
      INTEGER I

      DO I = 1, SIZE
         IF (DATA(I) .EQ. N) GOTO 20
      ENDDO

 20   IF (I .GT. SIZE) THEN
         SEARCH = 0
      ELSE
         SEARCH = 1
      ENDIF

      RETURN
      END



      PROGRAM TEST

      IMPLICIT NONE
      INTEGER SIZE, SEARCH
      PARAMETER (SIZE=5)
      INTEGER A(SIZE), I

      DO I = 1, SIZE
         A(I) = I*I
      ENDDO

      PRINT *, 'Please enter an integer'
      READ *, I

      IF (SEARCH(A, SIZE, I) .EQ. 1) THEN
         PRINT *, 'The number is in the array'
      ELSE
         PRINT *, 'The number is not in the array'
      ENDIF

      STOP
      END