!/*****************************************************************************/
! *
! *  Elmer, A Finite Element Software for Multiphysical Problems
! *
! *  Copyright 1st April 1995 - , CSC - IT Center for Science Ltd., Finland
! * 
! * This library is free software; you can redistribute it and/or
! * modify it under the terms of the GNU Lesser General Public
! * License as published by the Free Software Foundation; either
! * version 2.1 of the License, or (at your option) any later version.
! *
! * This library is distributed in the hope that it will be useful,
! * but WITHOUT ANY WARRANTY; without even the implied warranty of
! * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
! * Lesser General Public License for more details.
! * 
! * You should have received a copy of the GNU Lesser General Public
! * License along with this library (in file ../LGPL-2.1); if not, write 
! * to the Free Software Foundation, Inc., 51 Franklin Street, 
! * Fifth Floor, Boston, MA  02110-1301  USA
! *
! *****************************************************************************/

       SUBROUTINE SolveLapack_cmplx( N,A,x )

        USE Types

       INTEGER  N, IPIV(N), iinfo
       COMPLEX(KIND=dp) A(n*n), x(n)

       IF ( N <= 0 ) RETURN
       CALL ZGETRF( N,N,A,N,IPIV,iINFO )
       IF ( iinfo /= 0 ) PRINT*,'ZGETRF: ', iinfo

       CALL ZGETRS( 'N',N,1,A,N,IPIV,X,N,iINFO )
       IF ( iinfo /= 0 ) PRINT*,'ZGETRS: ', iinfo

       END

! ******************************************************************************
