SUBROUTINE LDL2(W, IW, X, Y, MU, N, RNEW, PROFIL, LEN)
USE Numeric_Kinds_Module
!
!   $RCSfile: ldl2.f,v $ $Revision: 1.3 $
!   $Date: 89/07/28 09:57:19 $
!   $State: Stable $
!
!
! **********************************************************************
!
!     PURPOSE (VER = 2)
!
!     DUMMY ROUTINE. PLEASE SEE THE INSTALLATION GUIDE FOR
!     MORE DETAILS.
!
!
! **********************************************************************
!
REAL(Kind=WP_Kind) W(1), X(1), Y(1), MU
INTEGER  IW(1), N, RNEW, LEN, PROFIL
!
RETURN
END