rk.f90 Source File


Contents

Modules

Source Code

rk.f90

Source Code

    module fftpack_kind
    implicit none
    integer,parameter :: rk = kind(1.0d0)
    end module fftpack_kind