OpenAD/code_ad_openad/w2f__types.f90

        module w2f__types

        integer :: w2f__4, w2f__8, w2f__16
        parameter (w2f__4 = kind(0.0))
        parameter (w2f__8 = kind(0.0d0))
        parameter (w2f__16 = selected_real_kind(p=30))

        integer :: w2f__i1, w2f__i2, w2f__i4,w2f__i8
        parameter (w2f__i1 = selected_int_kind(r=2))
        parameter (w2f__i2 = selected_int_kind(r=3))
        parameter (w2f__i4 = selected_int_kind(r=8))
        parameter (w2f__i8 = selected_int_kind(r=16))

        end module w2f__types
1	module w2f__types
2
3	integer :: w2f__4, w2f__8, w2f__16
4	parameter (w2f__4 = kind(0.0))
5	parameter (w2f__8 = kind(0.0d0))
6	parameter (w2f__16 = selected_real_kind(p=30))
7
8	integer :: w2f__i1, w2f__i2, w2f__i4,w2f__i8
9	parameter (w2f__i1 = selected_int_kind(r=2))
10	parameter (w2f__i2 = selected_int_kind(r=3))
11	parameter (w2f__i4 = selected_int_kind(r=8))
12	parameter (w2f__i8 = selected_int_kind(r=16))
13
14	end module w2f__types