mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-10-30 20:40:28 -04:00
19 lines
393 B
Fortran
19 lines
393 B
Fortran
module types
|
|
use, intrinsic :: iso_fortran_env
|
|
implicit none
|
|
|
|
! use the Fortran 2008 intrinsic constants to define real kinds
|
|
integer, parameter :: sp = REAL32
|
|
integer, parameter :: dp = REAL64
|
|
integer, parameter :: qp = REAL128
|
|
|
|
type q3list
|
|
character*6 call
|
|
character*4 grid
|
|
integer nsec
|
|
integer nfreq
|
|
integer moonel
|
|
end type q3list
|
|
|
|
end module types
|