FUNCTION VOID  litefac(nAll,nMain,nSub,nSurf,nsubSub,
                       nc,nv,nvert,ncsurf,
                       xDesk,yDesk,zDesk,
                       mainSurf,subSub,
                       coordVert,vertSurf,
                       fi,aSurf,reflSurf,
                       zMax,
                       fiDesk,jSw,ASeesDesk)

LANGUAGE F77

INPUT
    INT nAll,nMain,nSub,nSurf,nsubSub,
        nc,nv,nvert,ncsurf;

    FLOAT xDesk,yDesk,zDesk,
          mainSurf,subSub,
          coordVert,vertSurf,
          fi,aSurf,reflSurf,
          zMax;

OUTPUT
    FLOAT fiDesk,jSw,ASeesDesk;


EXTERNAL  litefac(nAll,nMain,nSub,nSurf,nsubSub,
                  nc,nv,nvert,ncsurf,
                  xDesk,yDesk,zDesk,
                  mainSurf,subSub,
                  coordVert,vertSurf,
                  fi,aSurf,reflSurf,
                  zMax,
                  fiDesk,jSw,ASeesDesk)

END_FUNCTION