home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol7n17.zip / NEWVAL.FOR < prev    next >
Text File  |  1988-06-23  |  307b  |  15 lines

  1. C----------------------------------------------------------------------
  2. C  A demo program to show how to change the value of 1.0
  3. C
  4.       DO 10 I=1,10
  5.         A=FCN(1.0)
  6.         WRITE(*,*)A,1.0
  7.    10 CONTINUE
  8.       STOP
  9.       END
  10.  
  11.       REAL FUNCTION FCN(A)
  12.       A=A+1.0
  13.       FCN=A
  14.       END
  15.