SUBROUTINE Init_RTM_Pixel_PFAAST(RTM)

      USE RTM_Struct_Mod
   USE Framework_Global_Variables_Module

      TYPE(RTM_Struct) :: RTM

      RTM%Pixel%RadClr7Pixel = MISSING_VALUE_SINGLE
      RTM%Pixel%RadClr8Pixel = MISSING_VALUE_SINGLE
      RTM%Pixel%RadClr9Pixel = MISSING_VALUE_SINGLE
      RTM%Pixel%RadClr10Pixel = MISSING_VALUE_SINGLE
      RTM%Pixel%RadClr11Pixel = MISSING_VALUE_SINGLE
      RTM%Pixel%RadClr12Pixel = MISSING_VALUE_SINGLE
      RTM%Pixel%RadClr13Pixel = MISSING_VALUE_SINGLE
      RTM%Pixel%RadClr14Pixel = MISSING_VALUE_SINGLE
      RTM%Pixel%RadClr15Pixel = MISSING_VALUE_SINGLE
      RTM%Pixel%RadClr16Pixel = MISSING_VALUE_SINGLE
      RTM%Pixel%BtClr7Pixel = MISSING_VALUE_SINGLE
      RTM%Pixel%BtClr8Pixel = MISSING_VALUE_SINGLE
      RTM%Pixel%BtClr9Pixel = MISSING_VALUE_SINGLE
      RTM%Pixel%BtClr10Pixel = MISSING_VALUE_SINGLE
      RTM%Pixel%BtClr11Pixel = MISSING_VALUE_SINGLE
      RTM%Pixel%BtClr12Pixel = MISSING_VALUE_SINGLE
      RTM%Pixel%BtClr13Pixel = MISSING_VALUE_SINGLE
      RTM%Pixel%BtClr14Pixel = MISSING_VALUE_SINGLE
      RTM%Pixel%BtClr15Pixel = MISSING_VALUE_SINGLE
      RTM%Pixel%BtClr16Pixel = MISSING_VALUE_SINGLE  
      RTM%Pixel%DerivSSTchn7 = MISSING_VALUE_SINGLE
      RTM%Pixel%DerivSSTchn8 = MISSING_VALUE_SINGLE
      RTM%Pixel%DerivSSTchn9 = MISSING_VALUE_SINGLE
      RTM%Pixel%DerivSSTchn10 = MISSING_VALUE_SINGLE
      RTM%Pixel%DerivSSTchn11 = MISSING_VALUE_SINGLE
      RTM%Pixel%DerivSSTchn12 = MISSING_VALUE_SINGLE
      RTM%Pixel%DerivSSTchn13 = MISSING_VALUE_SINGLE
      RTM%Pixel%DerivSSTchn14 = MISSING_VALUE_SINGLE
      RTM%Pixel%DerivSSTchn15 = MISSING_VALUE_SINGLE
      RTM%Pixel%DerivSSTchn16 = MISSING_VALUE_SINGLE
      RTM%Pixel%DerivODchn7 = MISSING_VALUE_SINGLE
      RTM%Pixel%DerivODchn8 = MISSING_VALUE_SINGLE
      RTM%Pixel%DerivODchn9 = MISSING_VALUE_SINGLE
      RTM%Pixel%DerivODchn10 = MISSING_VALUE_SINGLE
      RTM%Pixel%DerivODchn11 = MISSING_VALUE_SINGLE
      RTM%Pixel%DerivODchn12 = MISSING_VALUE_SINGLE
      RTM%Pixel%DerivODchn13 = MISSING_VALUE_SINGLE
      RTM%Pixel%DerivODchn14 = MISSING_VALUE_SINGLE
      RTM%Pixel%DerivODchn15 = MISSING_VALUE_SINGLE
      RTM%Pixel%DerivODchn16 = MISSING_VALUE_SINGLE

    END SUBROUTINE Init_RTM_Pixel_PFAAST

SUBROUTINE Run_PFAAST_Interface(Ctxt, Data_Handler, Return_Status)
   USE PCF_PFAAST_Mod
   USE Geocat_Constants
   USE Framework_Global_Variables_Module
   USE RTM_MODULE
   USE Type_Kinds_AIT
   USE Convert_Char

   IMPLICIT NONE

   TYPE(PFAAST_Ctxt) :: Ctxt
   TYPE(PFAAST_Struct) :: Data_Handler
   INTEGER(kind=int4) Return_Status
   INTEGER(BYTE) :: SeeborFlag

   CALL Init_RTM_Pixel_PFAAST(Ctxt%RTM_Src1_T00)

   Ctxt%RTM_Src1_T00%Grid%X_RTM = Ctxt%NWP_DATA_Src1_T00%SatPoints%X_NWP
   Ctxt%RTM_Src1_T00%Grid%Y_RTM = Ctxt%NWP_DATA_Src1_T00%SatPoints%Y_NWP

   CALL Convert_Char_C2Fortran(Data_Handler%SURFACE_EMISSIVITY_ID)
   IF(Data_Handler%SURFACE_EMISSIVITY_ID .eq. "SFC_EMISS_SEEBOR") THEN
      SeeborFlag = 1
   ELSE
      SeeborFlag = 0
   END IF

   CALL RUN_RTM(Ctxt%SATELLITE_DATA_Src1_T00%Header%Sat_ID, &
                Ctxt%SATELLITE_DATA_Src1_T00%Header%PlatformNum, &
                Ctxt%SegmentInfo, Ctxt%NWP_DATA_Src1_T00%NWP_Grid, &
                Ctxt%NWP_DATA_Src1_T00%SatPoints, &
                Ctxt%SATELLITE_DATA_Src1_T00%Data(COMMON_RESOLUTION)%Nav, &
                Ctxt%SURFACE_ELEVATION_Src1_T00, &
                Ctxt%SURFACE_EMISSIVITY_Src1_T00, Ctxt%SST_Src1_T00, &
                Ctxt%LAND_MASK_Src1_T00, &
                SeeborFlag, Ctxt%SATELLITE_DATA_Src1_T00%ChnMapping, &
                Ctxt%SATELLITE_DATA_Src1_T00%Data(COMMON_RESOLUTION)%L1b%ChnMapIR, &
                Ctxt%RTM_Src1_T00,  Return_Status)


END SUBROUTINE Run_PFAAST_Interface