PRO BANDS,PLATE,HCON,BB1,BB2,BB3,BB4,B1,B2,B3,B4
;******************************************************************************
;+
; NAME:
;	BANDS
; PURPOSE:
;	To get the floating point and byte arrays 
;	of all the bands of one hcon of an image.
; CATEGORY:
;	IMAGE PROCESSING
; CALLING SEQUENCE:
;	BANDS,PLATE,HCON,BB1,BB2,BB3,BB4,B1,B2,B3,B4
; INPUTS:
;	PLATE = plate number
;	HCON  = hcon number
; OPTIONAL INPUT PARAMETERS:
;	NONE
; OUTPUTS:
;	BB1,BB2,BB3,BB4 = byte arrays of each band
;	B1,B2,B3,B4 = floating point arrays of each band
; COMMON BLOCKS:
;	IRASHDR
; SUBROUTINES CALLED
;	IMGET
;	MINMAX2
; SIDE EFFECTS:
;	NONE
; RESTRICTIONS:
;	Works on V1 and V 2 of IDL.
; PROCEDURE:
;	Straightforward.
; MODIFICATION HISTORY:
;	Written, Stephen Merkowitz 1989
;-
;******************************************************************************
COMMON  IRASHDR,BLANK,CRVALV,CRPIXV,CDELTV,CROTAV,NAXISV
IF N_PARAMS(0) GT 8 THEN RETURN
IF N_PARAMS(0) LT 3 THEN RETURN
FILENAME='P'+PLATE+'H'+HCON+'B1'
IRASBHR,FILENAME
PRINT,'Getting ' + FILENAME
IMGET,FILENAME,B1
B1=B1>0
MINMAX2,B1,BB1
FILENAME='P'+PLATE+'H'+HCON+'B2'
IRASBHR,FILENAME
PRINT,'Getting ' + FILENAME
IMGET,FILENAME,B2
B2=B2>0
MINMAX2,B2,BB2
FILENAME='P'+PLATE+'H'+HCON+'B3'
IRASBHR,FILENAME
PRINT,'Getting ' + FILENAME
IMGET,FILENAME,B3
B3=B3>0
MINMAX2,B3,BB3
FILENAME='P'+PLATE+'H'+HCON+'B4'
IRASBHR,FILENAME
PRINT,'Getting ' + FILENAME
IMGET,FILENAME,B4
B4=B4>0
MINMAX2,B4,BB4
RETURN
END