FUNCTION VOID  rcopt (nlayers,thick,lambda,rho,cp,
                      Ca,Cb,Cc,Ra,Rb,Ro1,Ro2, nNode)

/* */
LANGUAGE F77

INPUT
    INT   nlayers;
    FLOAT thick,lambda,rho,cp;

OUTPUT
    FLOAT Ca,Cb,Cc,Ra,Rb,Ro1,Ro2;
    INT nNode;

EXTERNAL  rcopt (nlayers,thick,lambda,rho,cp,
                 Ca,Cb,Cc,Ra,Rb,Ro1,Ro2, nNode)

END_FUNCTION