WSJT-X/lib/types.f90

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
  end type q3list

end module types
Improved C/Fortran string interoperation, and fix azel.dat updates The azel.dat file is no longer written with future Doppler correction information designed for rigs that can't do CAT QSY commands while transmitting. 2020-07-20 15:15:55 +01:00			`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`

Working toward 'q3list' decoding for NA VHF Contest mode. More still needed! 2023-02-07 15:17:09 -05:00			`type q3list`
			`character*6 call`
			`character*4 grid`
			`integer nsec`
			`end type q3list`

Improved C/Fortran string interoperation, and fix azel.dat updates The azel.dat file is no longer written with future Doppler correction information designed for rigs that can't do CAT QSY commands while transmitting. 2020-07-20 15:15:55 +01:00			`end module types`