Keywords: telcal

Next: Derived types Up: TELCAL library interfaces Previous: TELCAL library interfaces Contents Index

## Interfaces

The interfaces of the TELCAL F90 subroutines available to the user are located in the `telcal-interfaces.f90` file. Its contents are reproduced here:

    module telcal_interfaces
      !
      ! General TELCAL
      !
      interface ! Load TELCAL environment (Language, global variables, etc...)
         subroutine load_telcal
         end subroutine load_telcal
      end interface
      !
      interface ! Interpret and execute TELCAL commands
         subroutine run_telcal(line,comm,error)
           character*(*) line,comm
           logical error
         end subroutine run_telcal
      end interface
      !
      ! FIT related
      !
      interface ! General unidimensional fitting routine
         subroutine fit_1d(dat,fun)
           use fit_definitions
           type (simple_1d) :: dat
           type (fit_fun)   :: fun
         end subroutine fit_1d
      end interface
      !
      interface ! Initialize the "dat" instance of the simple_1d derived type
         subroutine null_simple_1d(dat)
           use fit_definitions
           type (simple_1d) :: dat
         end subroutine null_simple_1d
      end interface
      !
      interface ! Initialize the "par" instance of the fit_par derived type
         subroutine null_parameter(par)
           use fit_definitions
           type (fit_par) :: par
         end subroutine null_parameter
      end interface
      !
      interface ! Initialize the "fun" instance of the fit_fun derived type
         subroutine null_function(fun)
           use fit_definitions
           type (fit_fun) :: fun
         end subroutine null_function
      end interface
      !
      interface ! Copy the "in" simple_1d derived type into "out"
         subroutine copy_simple_1d(in,out)
           use fit_definitions
           type (simple_1d) :: in,out
         end subroutine copy_simple_1d
      end interface
      !
      interface ! Copy the "in" fit_fun derived type into "out"
         subroutine copy_function(in,out)
           use fit_definitions
           type (fit_fun) :: in,out
         end subroutine copy_function
      end interface
      !
      ! POINTING related
      !
      interface ! Initialize the point cross structure
         subroutine init_point_cross(ndat)
           use point_definitions
           integer :: ndat ! Size of the data arrays
         end subroutine init_point_cross
      end interface
      !
      interface ! Solve the telescope pointing parameters through a cross
                ! Then plot results
         subroutine solve_point_cross
           use fit_definitions
           use point_definitions
         end subroutine solve_point_cross
      end interface
      !
    end module telcal_interfaces