On Tue, 2008-11-11 at 01:52 -0800, N.M. Maclaren wrote: > Fortran permits arguments to be passed using Jensen's > device, I don't think this is true. Perhaps call-by-need, but not Jensen's device. Otherwise the obvious SWAP routine would fail to work if referenced CALL SWAP ( I, A(I) ).