[gumley@sunset src]$ idl
IDL Version 7.1 (linux x86_64 m64). (c) 2009, ITT Visual Information Solutions
Installation number: 95080-2.
Licensed for use by: University of Wisconsin

IDL> viirs_average_npp
% Compiled module: VIIRS_AVERAGE_NPP.
           4
../npp/NPP_VIIRS_NG_RSR_I4_filtered_Oct2011f_BA.dat
% Compiled module: DDREAD.
% Compiled module: NLINES.
% Compiled module: TYPEOF.
% DDREAD: Read 701 data lines selecting 2 of 2 columns; skipped 0 comment lines.
DATA            FLOAT     = Array[2, 701]
% Compiled module: SRF_INTERPOLATE.
% Compiled module: REVERSE.
% Compiled module: INTERPOL.
WVN_INTERP      DOUBLE    = Array[5023]
SRF_INTERP      DOUBLE    = Array[5023]
% Compiled module: SRF_WRITE.
           5
../npp/NPP_VIIRS_NG_RSR_I5_filtered_Oct2011f_BA.dat
% DDREAD: Read 3037 data lines selecting 2 of 2 columns; skipped 0 comment lines.
DATA            FLOAT     = Array[2, 3037]
WVN_INTERP      DOUBLE    = Array[2330]
SRF_INTERP      DOUBLE    = Array[2330]
          12
../npp/NPP_VIIRS_NG_RSR_M12_filtered_Oct2011f_BA.dat
% DDREAD: Read 1051 data lines selecting 2 of 2 columns; skipped 0 comment lines.
DATA            FLOAT     = Array[2, 1051]
WVN_INTERP      DOUBLE    = Array[7722]
SRF_INTERP      DOUBLE    = Array[7722]
          13
../npp/NPP_VIIRS_NG_RSR_M13_filtered_Oct2011f_BA.dat
% DDREAD: Read 961 data lines selecting 2 of 2 columns; skipped 0 comment lines.
DATA            FLOAT     = Array[2, 961]
WVN_INTERP      DOUBLE    = Array[5850]
SRF_INTERP      DOUBLE    = Array[5850]
          14
../npp/NPP_VIIRS_NG_RSR_M14_filtered_Oct2011f_BA.dat
% DDREAD: Read 801 data lines selecting 2 of 2 columns; skipped 0 comment lines.
DATA            FLOAT     = Array[2, 801]
WVN_INTERP      DOUBLE    = Array[1085]
SRF_INTERP      DOUBLE    = Array[1085]
          15
../npp/NPP_VIIRS_NG_RSR_M15_filtered_Oct2011f_BA.dat
% DDREAD: Read 5001 data lines selecting 2 of 2 columns; skipped 0 comment lines.
DATA            FLOAT     = Array[2, 5001]
WVN_INTERP      DOUBLE    = Array[5336]
SRF_INTERP      DOUBLE    = Array[5336]
          16
../npp/NPP_VIIRS_NG_RSR_M16A_filtered_Oct2011f_BA.dat
% DDREAD: Read 5001 data lines selecting 2 of 2 columns; skipped 0 comment lines.
DATA            FLOAT     = Array[2, 5001]
WVN_INTERP      DOUBLE    = Array[4809]
SRF_INTERP      DOUBLE    = Array[4809]
IDL> exit
[gumley@sunset src]$ gfortran -o viirs_compute_coef viirs_compute_coef.f cenwav.f bndfit.f linreg.f planc_m.f brite_m.f
[gumley@sunset src]$ ./viirs_compute_coef
Enter name of VIIRS spectral response file: viirs-npp-avg.srf
BAND-AVERAGED VIIRS SPECTRAL RESPONSE FUNCTIONS FOR NPP                         

BAND  4 TEMPERATURE RANGE WAS  180.00 K TO  340.00 K
BAND  5 TEMPERATURE RANGE WAS  180.00 K TO  340.00 K
BAND 12 TEMPERATURE RANGE WAS  180.00 K TO  340.00 K
BAND 13 TEMPERATURE RANGE WAS  180.00 K TO  340.00 K
BAND 14 TEMPERATURE RANGE WAS  180.00 K TO  340.00 K
BAND 15 TEMPERATURE RANGE WAS  180.00 K TO  340.00 K
BAND 16 TEMPERATURE RANGE WAS  180.00 K TO  340.00 K

BANDS
   4,   5,  12,  13,
  14,  15,  16,

EFFECTIVE CENTRAL WAVENUMBERS
 2.675413E+03, 8.767064E+02, 2.707706E+03, 2.460210E+03,
 1.165972E+03, 9.346943E+02, 8.462825E+02,

TEMPERATURE CORRECTION SLOPES
 9.976984E-01, 9.959489E-01, 9.992083E-01, 9.995182E-01,
 9.996862E-01, 9.981278E-01, 9.985471E-01,

TEMPERATURE CORRECTION INTERCEPTS
 1.740727E+00, 1.115936E+00, 5.858082E-01, 3.256637E-01,
 1.116244E-01, 5.592915E-01, 4.020620E-01,