FUNCTION VOID  lwfacrad (nSurf,SurfArea,TotArea,psilwrad)


LANGUAGE F77

INPUT
    INT nSurf;
    FLOAT SurfArea, TotArea;
    
OUTPUT
    FLOAT psilwrad;


EXTERNAL  lwfacrad (nSurf,SurfArea,TotArea,psilwrad)


END_FUNCTION