c*******************************************************

	SUBROUTINE csv_write_dble_1d( lun, array, advance )

! write a 1D array of double-precision REAL to the CSV-file
! cvs_file_1d.f --
!     Include file for csv_file.f:
!     contains the body of the one-dimensional version of the
!     writing routines.
!     $Id: csv_file_1d.f90,v 1.2 2006/03/26 19:03:53 arjenmarkus Exp $

c Auteurs: T.Guillot, P.Morel (adaptation à CESAM2k) Laboratoire Lagrange, OCA

c-------------------------------------------------------------

	USE mod_kind
	
	IMPLICIT NONE

	REAL(kind=dp), DIMENSION(:), INTENT(in)   :: array

	INTEGER, INTENT(in)                 :: lun
	LOGICAL, INTENT(in), OPTIONAL      :: advance

	LOGICAL                             :: adv
	INTEGER                             :: i

c-----------------------------------------------------------------

	adv = .TRUE.
	IF ( PRESENT(advance) ) adv = advance

	DO i = 1,SIZE(array)-1
	 CALL csv_write( lun, array(i), .FALSE. )
	ENDDO
	CALL csv_write( lun, array(SIZE(array)), adv )
	
	RETURN

	END SUBROUTINE csv_write_dble_1d