topic Re: Passing argument of real*4 to a function where argument req in Intel® Fortran Compiler

Passing argument of real4 to a function where argument required in real 8

acobulareddy — Sun, 04 Jan 2009 11:44:48 GMT

I am trying to call a function f1(a). by using

CALL F1(A)

In this functionA is a REAL *4

where as in F1 Function argument required is REAL*8

When A goes into F1 it is showing as some null data.

Currently I am calling F1(A) as F1(DBLE(A)). which is solving the problem.

Is there any setting that I need to make it passed with out using DBLE function.

Thanks for your help
Chandra.

Re: Passing argument of real*4 to a function where argument req

Steven_L_Intel1 — Sun, 04 Jan 2009 15:19:58 GMT

No. Fortran requires that arguments match in type, kind and rank. Use of DBLE is certainly one approach, and perhaps the most reasonable. If the called function writes back to the argument, however, you'll want another solution, such as assigning to a variable of the matching type and then passing that.

Re: Passing argument of real*4 to a function where argument req

TimP — Sun, 04 Jan 2009 15:34:00 GMT

Quoting - acobulareddy

Currently I am calling F1(A) as F1(DBLE(A)).

You have chosena normal f77 way of doing this. If you mean, is there a way to emulate platforms of 35 years ago where you could pass a single precision value to a double precision argument with a relativeerror of about 1e-6 (taking a big risk in the case where the value is modified), the answer is no.

Re: Passing argument of real*4 to a function where argument req

jimdempseyatthecove — Sun, 04 Jan 2009 15:42:54 GMT

Quoting - acobulareddy

I am trying to call a function f1(a). by using

CALL F1(A)

In this functionA is a REAL *4

where as in F1 Function argument required is REAL*8

When A goes into F1 it is showing as some null data.

Currently I am calling F1(A) as F1(DBLE(A)). which is solving the problem.

Is there any setting that I need to make it passed with out using DBLE function.

Thanks for your help
Chandra.

You can do this using generic interface. You would create a generic interface for F1 and then two specific interfaces such ason as F1_single and F1_double where one accepts the single precision argument and the other accepts the double precision argument. The IVFdocumentation illustrates how do do this.

Jim Dempsey

topic Re: Passing argument of real*4 to a function where argument req in Intel® Fortran Compiler

Passing argument of real*4 to a function where argument required in real *8

Re: Passing argument of real*4 to a function where argument req

Re: Passing argument of real*4 to a function where argument req

Re: Passing argument of real*4 to a function where argument req

Passing argument of real4 to a function where argument required in real 8