We have a compiler that is causing trouble when a pointer to an array
is passed to a f77-like implicit function. It seems it is probably just
passing the memory address of the pointer object, rather than doing a
copy-in/copy-out, or something like that.
Just to make sure I am not misinterpreting things, is this legal?
real :: vertices(3, 3)
real :: area, calcArea
...
area = calcArea( array(1:2, :) )
...
! In another file, with an implicit interface
real function calcArea( a )
real :: a(2, 3)
...
end function
Thanks in advance,
Drew McCormack
========================================
Dr. Drew McCormack (Kmr. R153)
Afd. Theoretische Chemie
Faculteit Exacte Wetenschappen
Vrije Universiteit Amsterdam
De Boelelaan 1083
1081 HV Amsterdam
The Netherlands
Email [log in to unmask]
Web www.maniacalextent.com
Telephone +31 20 44 47623
Mobile +31 6 483 21307
Fax +31 20 44 47629
|