C  Code of FORTRAN example on page 328 from
C  Kenneth C. Louden, Programming Languages
C  Principles and Practice 2nd Edition
C  Copyright (C) Brooks-Cole/ITP, 2003
C  An Example of a fully static runtime environment

      REAL TABLE(10),MAXVAL
      READ *, TABLE(1),TABLE(2),TABLE(3)
      CALL LRGST(TABLE,3,MAXVAL)
      PRINT *, MAXVAL
      END

      SUBROUTINE LRGST (A,SIZE,V)
      INTEGER SIZE
      REAL A(SIZE),V
      INTEGER K
      V = A(1)
      DO 10 K = 1,SIZE
      IF (A(K).GT.V) V = A(K)
   10 CONTINUE
      RETURN
      END