NCEPLIBS-w3emc 2.12.0
Loading...
Searching...
No Matches
w3kind.f
Go to the documentation of this file.
1
4
17 subroutine w3kind(kindreal,kindint)
18 IMPLICIT NONE
19!
20 integer,intent(out) :: kindreal,kindint
21! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
22! get real kind from a real number
23 kindreal=kind(1.0)
24 kindint=kind(1)
25! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
26 end
w3kind
subroutine w3kind(kindreal, kindint)
This subprogram returns the real kind and the integer kind that the w3 lib is compiled with.
Definition w3kind.f:18