c-----------------------------------------------------------------------
c
c  Name:
c      SUBROUTINE INITCF
c
c  Purpose:
c      Compute temperature correction coefficients for all MAS IR bands
c      and store in common block which is accessed by MASRAD and MASBRT.
c
c  Usage:
c      CALL INITCF()
c 
c  Input:
c      Nothing

c  Output:
c      The following variables are stored in COMMON block MASCOF
c      INIT    Flag indicating that initialization is required
c      WC      Effective central wavenumber (inverse centimeters)
c      TCS     Temperature correction slope (no units)
c      TCI     Temperature correction intercept (K)
c
c  Revised:
c      Liam.Gumley@ssec.wisc.edu
c      $Id: initcf.f,v 1.3 1999/11/11 20:04:44 gumley Exp $
c
c-----------------------------------------------------------------------

      subroutine initcf()
      
c ... local variables

      integer band
      real t1( 50 ), t2( 50 )

c ... common block to be read later by MASRAD and MASBRT

      integer init
      real wc( 50 ), tcs( 50 ), tci( 50 )
      common / mascof / init, wc, tcs, tci

c ... lower and upper limits of expected earth scene temperature range
      
      data t1 / 50 * 180.0 /, t2 / 50 * 320.0 /

c ... get coefficients for all IR bands

      if( init .ne. 1 ) then

        do band = 26, 50

          call getcof( band, t1( band ), t2( band ),
     &      wc( band ), tcs( band ), tci( band ) )

        end do

c ...   set initialization flag to be read later by MASRAD and MASBRT

        init = 1
        
      endif

      end