The TELCAL derived types are defined in the telcal-types.f90 files:
! ! FIT derived type definitions ! module fit_definitions ! type :: simple_1d ! Data vector (simple precision, 1d) sequence integer :: n ! Number of data real(8), pointer :: x(:) ! Abcissae (in) real(8), pointer :: y(:) ! Values (in) real(8), pointer :: w(:) ! Weights (in) real(8), pointer :: d(:) ! derivative of x with time, Not always allocated end type simple_1d ! type :: fit_par ! Description of a fitted parameter sequence character(len=16) :: name ! Parameter name (in) real(8) :: guess ! Guess (in) real(8) :: value ! Fit value (out) real(8) :: error ! Fit uncertainty (out) real(8) :: mini ! Minimum possible value (in) real(8) :: maxi ! Maximum possible value (in) logical :: fixed ! Is the parameter fixed? (in) logical :: padding ! Padding for structure alignment end type fit_par ! type :: fit_fun ! Description of a fitted function sequence character(len=16) :: name ! Fitted function name (eg GAUSSIAN) character(len=16) :: method ! Fitting library (eg SLATEC) real :: rms ! Residual RMS integer :: flag ! Error/Quality code integer :: ncall ! Number of iterations integer :: npar ! Number of fitted parameters type (fit_par), pointer :: par(:) ! Array of parameter descriptions end type fit_fun ! type :: fit_var ! Variable fitted parameters only sequence integer :: n ! Number real(8), pointer :: x(:) ! Values real(8), pointer :: d(:) ! Errors integer, pointer :: idx(:) ! Position index inside full parameter vector end type fit_var ! end module fit_definitions ! ! POINTING derived type definitions ! module point_definitions use fit_definitions ! type :: point_cross sequence integer :: sys ! Scanning coordinate system character(16) :: dir(4) ! Scanning directions type (simple_1d) :: dat(4) ! Data vectors type (simple_1d) :: sol(4) ! Solution vectors type (fit_fun) :: fun(4) ! Fit functions end type ! type (point_cross), save :: pcross ! end module point_definitions !