home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
pcmag
/
vol7n17.arc
/
NEWVAL.FOR
< prev
next >
Wrap
Text File
|
1988-06-23
|
307b
|
15 lines
C----------------------------------------------------------------------
C A demo program to show how to change the value of 1.0
C
DO 10 I=1,10
A=FCN(1.0)
WRITE(*,*)A,1.0
10 CONTINUE
STOP
END
REAL FUNCTION FCN(A)
A=A+1.0
FCN=A
END