NCEPLIBS-w3emc  2.11.0
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