;-------------------------------------------------------------------------------
;
;  Unit Name : l_T96.pro
;
;  Purpose   : The IDL interface to the TSYGANENKO model written in Fortran.
;
;
;  Development History:
;  Author             Date           Build            Description of Change
;  --------------   ---------       --------         -------------------------
;   ELH                               v0.0           Original implementation
;
;
;  File Revision Number:   %I%
;  File Last Modified  :   %E%  %T%
;
;-------------------------------------------------------------------------------
;-------------------------------------------------------------------------------
;  Procedure: l_CallT96
;
;  Description:  Calls the Tsyganenko model from IDL.
;
;  Return Value:  type =
;  Value                         Description
;  -------------------------     ------------------------------
;  None
;
;  Argument List:
;  Name                  Type         Use       Description
;  -----------------     ------       ---       ---------------------------
;  None
;
;
;  External Variables:
;  Source              Name            Type        Use        Description
;  ---------------     ---------       ----        ----       --------------------
;  None
;
;  Development History:
;  Author             Date           Build            Description of Change
;  --------------   ---------       --------         -------------------------
;  ELH               04/23/03       v1.0.11           Original implementation
;-------------------------------------------------------------------------------

PRO l_CallT96

result = Call_External ('T96_Model.so', 'T96_01', $
                        iopt, parmod, ps, gsm_x, $
                        gsm_y, gsm_z

RETURN
END