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

	SUBROUTINE csv_write_integer_1d( lun, array, advance )

! csv_write_integer/real/dble_1d --
!     write a one-dimensional array of items to the CSV-file
! Arguments:
!     lun        LU-number of the CSV-file
!     array      Array to write
!     advance    Advance (.true.) or not, so that more items can be
!                written to the same record
! Result:
!     The array is written to the current record of the CSV-file
! Note:
!     Because the four routines of this type differ only in
!     the data type, we use an INCLUDE file for the body.
! write a 1D array of integers 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

	INTEGER, 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_integer_1d