** Copyright (c) 1989, NVIDIA CORPORATION.  All rights reserved.
**
** Licensed under the Apache License, Version 2.0 (the "License");
** you may not use this file except in compliance with the License.
** You may obtain a copy of the License at
**
**     http://www.apache.org/licenses/LICENSE-2.0
**
** Unless required by applicable law or agreed to in writing, software
** distributed under the License is distributed on an "AS IS" BASIS,
** WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
** See the License for the specific language governing permissions and
** limitations under the License.

*   Intrinsic (double complex) names passed as arguments.
*   (all intrinsics which are allowed to be passed are tested once).

	parameter(n = 7)
	implicit real*8 (d)
	integer rslts(n), expect(n)

	integer ztoi
	intrinsic dconjg, cdsqrt, cdexp, cdlog, cdsin, cdcos
	intrinsic cdabs

	rslts(1) = ztoi((1.0d0, 2.0d0),  dconjg)
	rslts(2) = ztoi((2.0d0, -3.0d0), cdsqrt)
	rslts(3) = ztoi((-1.0d0, 1.0d0), cdexp)
	rslts(4) = ztoi((3.0d0, 4.0d0),  cdlog)
	rslts(5) = ztoi((3.0d0, 4.0d0),  cdsin)
	rslts(6) = ztoi((3.0d0, 4.0d0),  cdcos)

c  --- tests 7:  cdabs

	call sub4(rslts(7), cdabs)

c  --- check results:

	call check(rslts, expect, n)

	data expect /
     +       980, 1665, 201, 1618, 3583, -27073,
     +       5
     +              /
	end

c ccccccccccccccccccccccccccccccccccccccccccccccccccccccc
	
	integer function ztoi(c, f)
	double complex c, f, t
	external f
	
	t = f(c)
	ztoi = real(t) * 1000 + dimag(t) * 10
	end

	subroutine sub4(a, cdabs)
	external cdabs
	double precision cdabs
	integer a(*)

	a(1) = cdabs((3.1d0, 4.0d0))
	end