SUBROUTINE DC6LCF(P,X,NF,F,IU,UR,UF) INTEGER P,IU DOUBLE PRECISION X(P),F,UR EXTERNAL UF CALL UF(P,X,NF,F) RETURN END