How to pass a non standard data type to a function

[QuadVODE]

Hi,

I'm using a library (qd) which allows me to calculated in quadropole precission.

When I pass the quadrupole variable zdum to the function
cabs1

use qdmodule
implicit none
type (qd_complex) dzum
type (qd_real) cabs1(zdum)

I get the following errror message:

fortcom: Error: zgbfa.f, line 102: A REAL or INTEGER or LOGICAL data type is required in this context. [ZDUM]
type (qd_real) cabs1(zdum)
---------------------------^
fortcom: Error: zgbfa.f, line 153: A REAL or INTEGER or LOGICAL data type is required in this context. [ABD]
if (cabs1(abd(l,k)) .eq. 0.0d0) go to 100
-------------------^
.
.
.
.
What means, how far I can see, I can pass only 'intrinsic' datatypes as arguments for functions!

Does anybody knows a solution? Or has a guess??

Thanks

Peter

 

[QuadVODE]

Ok,

I solved it.

type (qd_real) cabs1

works.

But why???

Cheers

Peter

 

[douchebag]

It looks like maybe a simple typo: You didn;t declare zdum. did you want dzum or zdum?

A REAL or INTEGER or LOGICAL data type is required in this context
it means you can only dimension the array with those types.