Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84; site brl-tgr.ARPA
Path: utzoo!linus!philabs!cmcl2!seismo!brl-tgr!geoffs
From: geoffs@brl-tgr.ARPA (Geoffrey Sauerborn )
Newsgroups: net.lang.f77
Subject: when is a function not a function...
Message-ID: <10964@brl-tgr.ARPA>
Date: Thu, 23-May-85 13:12:18 EDT
Article-I.D.: brl-tgr.10964
Posted: Thu May 23 13:12:18 1985
Date-Received: Fri, 24-May-85 22:30:26 EDT
Distribution: net
Organization: Ballistic Research Lab
Lines: 25

c This might just be unique to the UNIX(tm) compiler,
c  or is it standard that functions can be CALLed
c  and subroutines be (almost) treated as functions?
	PROGRAM main
	CALL func1
	dummy = sub1()
	PRINT*,sub1()
	END

	FUNCTION func1
	dummy = 99.0
	PRINT*, " func1=",dummy
	func1 = dummy
	END

	SUBROUTINE sub1
	PRINT*,"I'm a subroutine!"
	END
C----------------------------------------------
C the results: using 4.2 BSD f77
C----------------------------------------------
C   func1=   99.0000
C  I'm a subroutine!
C  I'm a subroutine!
C  0.