FUNCTION VOID  fddisc (nLay,nSubLayR,nCells,subMode,l,lambda,rho,cp,C,R)

/* */
LANGUAGE F77

INPUT
    INT   nLay,nCells,subMode;
    FLOAT nsubLayR,l,lambda,rho,cp;

OUTPUT
    FLOAT C,R;
 

EXTERNAL fddisc (nLay,nSubLayR,nCells,subMode,l,lambda,rho,cp,C,R) 

END_FUNCTION