FUNCTION VOID SkyTrace (DebugF,
           AzimutDeg, ElevDeg,
           IDirShd, IDifShd, 
           SkyCoord, aFace, frameRat,
           aFloor, aGlassTot, aFrameTot,
           DET_In, EAiP_In, DET_Out, EAiP_Out,
           reflFrameExt, reflFrameInt,
           THREE, FOUR, FIVE, EIGHT,

           RDir, RDifInt, RSwFrmExt,
           QAbsGlsInt, QAbsFrmInt,
           RSwOut)

  LANGUAGE F77

  INPUT 
     INT   Three, Four, Five, Eight;
     FLOAT DebugF,
           AzimutDeg, ElevDeg,
           IDirShd, IDifShd, 
           SkyCoord[Three,Eight],
           aFace[Five], frameRat[Five],
           aFloor, aGlassTot, aFrameTot,
           DET_In, EAiP_In, DET_Out, EAiP_Out,
           reflFrameExt, reflFrameInt;

  OUTPUT
     FLOAT RDir, RDifInt, RSwFrmExt,
           QAbsGlsInt, QAbsFrmInt,
           RSwOut;

  EXTERNAL SkyTrace (DebugF,
           AzimutDeg, ElevDeg,
           IDirShd, IDifShd, 
           SkyCoord, aFace, frameRat,
           aFloor, aGlassTot, aFrameTot,
           DET_In, EAiP_In, DET_Out, EAiP_Out,
           reflFrameExt, reflFrameInt,
           THREE, FOUR, FIVE, EIGHT,

           RDir, RDifInt, RSwFrmExt,
           QAbsGlsInt, QAbsFrmInt,
           RSwOut)
  END_FUNCTION