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

	SUBROUTINE csv_next_record( lun )
	
! csv_next_record --
!     Go to the next record (convenience routine)
! Arguments:
!     lun        LU-number of the CSV-file (list unit?)
! Result:
!     The current record is closed, the next write will be to the
!     new record
! Note:
!     This is a convenience routine, it may result in a superfluous
!     comma at the end of the previous record. This does not seem to
!     be problematic, though, for MS Excel
!
!Advance to the next record

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

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

	IMPLICIT NONE

	INTEGER, INTENT(in)   :: lun

	WRITE(lun,'(a)') ''
	
	RETURN
    
	END SUBROUTINE csv_next_record