;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;*NAME:    
;
;  telescl
;
;*PURPOSE:
;
;  like tv, but can also enlarge the image and assign the color table 
;  to the data
;
;*CALLING SEQUENCE:
;
;  telescl,array,xsize,ysize,
;                xpos= ,ypos= ,cubic= ,interp= ,minus_one= ,normal= 
;
;*INPUTS:
;
; array:  2D-array, type must be compatible to float
;
;*OUTPUTS:
;
;*PARAMETERS:
;
;  xsize: scalar,integer, x-size of the displayed image (optional)
;  ysize: scalar,integer, y-size of the displayed image (optional)
;
;*KEYWORDS:
;
;  xpos:      scalar,integer, sets x-position of the lower left corner, 
;             DEFAULT: 0 
;  ypos:      scalar,integer, sets y-position of the lower left corner, 
;             DEFAULT: 0
;  cubic:     scalar,float between -1,0, sets cubic interpolation, 
;             DEFAULT: 0
;  interp:    scalar, 0/1, sets linear interpolation, 
;             DEFAULT:0
;  minus_one: scalar, 0/1, sets interpolation at the boarders off/on,
;             DEFAULT: 0
;  
;*CALLED FUNCTIONS:
;
;  congrid
;
;*CALLED PROCEDURES:
;
;  tvscl
;
;*MODIFICATION HISTORY:
;
;       17/01/01        TBE             initial programming
;          
;*AUTHORS:
;
;       TBE             Thomas Becker   Astrophysikalisches Institut Potsdam
;                                       An der Sternwarte 16
;                                       D-14481 Potsdam
;                                       email: tbecker@aip.de
;                                       Tel. (049) 331/7499 - 414
;
;----------------------------------------------------------------------------