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

	SUBROUTINE csv_write_integer_2d( lun, array )
	
! csv_write_integer/real/dble_2d --
!     write a two-dimensional array of items to the CSV-file
! Arguments:
!     lun        LU-number of the CSV-file
!     array      Array to write
! 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 2D array of integers to the CSV-file
! cvs_file_2d.f90 --
!     Include file for csv_file.f90:
!     contains the body of the two-dimensional version of the
!     writing routines.
!
!     $Id: csv_file_2d.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 :: adv
	INTEGER :: i

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

	adv = .TRUE.
	DO i = 1,SIZE(array,2)
	 CALL csv_write( lun, array(:,i), adv )
	ENDDO
	
	RETURN

	END SUBROUTINE csv_write_integer_2d