home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / h / house_ii.zip / FOR / TOTV.FOR < prev    next >
Text File  |  1991-08-15  |  284b  |  17 lines
  1.       FUNCTION TOTV(X,N)
  2. C
  3. C  TOTAL OF N VALUES IN ARRAY X
  4.       DIMENSION X(N)
  5.       IF(N.EQ.1)THEN
  6.           TOT=X(1)
  7.           GO TO 20
  8.           ENDIF
  9.       XA=0.
  10.       DO 10 I=1,N
  11.    10 XA=XA+X(I)
  12.       TOT=XA
  13.    20 CONTINUE
  14.       TOTV=TOT
  15.       RETURN
  16.       END
  17.