Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!pt.cs.cmu.edu!andrew.cmu.edu!mikem+
From: mikem+@andrew.cmu.edu (Michael Meyer)
Newsgroups: comp.lang.fortran
Subject: Is this valid fortran
Message-ID: 
Date: 3 Oct 89 10:38:25 GMT
Organization: Academic Computing, Carnegie Mellon, Pittsburgh, PA
Lines: 27

Hi:
Could someone please tell me if the following function is valid fortran?
 The code does compile (but produced execution errors) on the Decstation
3100.  
	complex function fred(x,y)
	complex x,y
	fred=(10,10)
	fred= x*conjg(y) + fred
	return
	end

My question is whether it is allowable to treat the function name (fred)
as a variable in the body of the function.  Is is allowable to update
the value of fred?  I notice in similar LINPACK code, that in cases like
this a temporary variable is always used, e.g.,
	...
	complex tempf
	tempf = (10,10)
	tempf = x * conjg(y) + tempf
	fred = tempf
	return
	end.

Regards,
                            Michael M. Meyer
                      Statistics/Academic Computing
                       Carnegie Mellon University.