Function:     ircc_bandnr

Purpose:      Returns IRAS band numbers

Category:     IR

File:         ircc_const.c

Author:       P.R. Roelfsema

Use:          INTEGER IRCC_BANDNR( INSTRUMENT )  Input character*(*)

              IRCC_BANDNR Returns the band number for a given instrument; 
                          If the instrument does not have a band associated 
                          with it 0 is returned.
              INSTRUMENT  Instrument name; this can be a combination 
                          of a mode and band name e.g.:
                          SURVEY B1, SURVEY B2, SPLINE B3, AO B4, 
                          AO LRS, SURVEY BPHF etc.
                          Note B1, B2, LRS etc alone will also give correct
                          bandnumbers.
                          ( see also IRCC_INSTRNAME )
Description:
	The band numbers are:
	  1	 12 micron
	  2	 25 micron
	  3	 60 micron
	  4	100 micron
	  5	LRS
	  6	BPHF

Updates:      Sep  6, 1990: PRR, Creation date