Declare constant function arguments with specific data type

[fobermaier]

Hello,

I have a function with the following interface:

[plain]integer(4), parameter :: real_kind = 8
subroutine SetZWidS( linkIndex, segmentIndex, value )

  integer(4), intent(in)      ::  linkIndex, segmentIndex
  real(real_kind), intent(in) ::  value

  ...

end subroutine
[/plain]

If I want to pass 1.0E30 for value, e.g.

[cpp]call SetZWidS(link, segement, 1.0E30),[/cpp]

I get an error that data types are inconsistent.
Is there a way to declare the 1.0E30 as double without using dble or real(val, 8)?
If so, does that work for other numeric data types as well?

Thanks in advance
FObermaier

[Les_Neilson · Accepted solution]

You could use 1.0e30_8 or 1.0e30_real_kind if real_kind is visible in the calling routine (advisable)

Les