home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / educ / math / 011 / func3.for < prev    next >
Encoding:
Text File  |  1988-08-21  |  374 b   |  15 lines
  1.       SUBROUTINE CALFUN(X,N,FF,INF)
  2.       IMPLICIT REAL*8 (A-H,O-Z)
  3.       DIMENSION X(4)
  4.       INF = 0
  5.       DO 1 I = 2, 4
  6.         IF (X(I) .GT. 0.) GOTO 1
  7.           INF = 1
  8.   1   CONTINUE
  9.       IF (INF .EQ. 1) RETURN
  10.       FF = (X(1) - 1.)**2 + (X(1) - DSQRT(X(2)))**2
  11.       FF = FF + (X(2) - DSQRT(X(3)))**2 + (X(3) - DSQRT(X(4)))**2
  12.       RETURN
  13.       END
  14.  
  15.