subroutine coeneu(imod, nbnode)
! ======================================================================
! COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
! THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
! IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
! THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
! (AT YOUR OPTION) ANY LATER VERSION.
!
! THIS PROGRAM 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
! GENERAL PUBLIC LICENSE FOR MORE DETAILS.
!
! YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
! ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
!   1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
! ======================================================================
! person_in_charge: nicolas.greffet at edf.fr
    implicit none
!
!      COENEU --   ECRITURE DES NUMEROS DE NOEUDS ET DE LEURS
!                  COORDONNEES VENANT D'UN FICHIER .GMSH DANS
!                  UN FICHIER .MAIL
!
!   ARGUMENT        E/S  TYPE         ROLE
!    NBNODE         IN    I         NOMBRE DE NOEUDS DU MAILLAGE
!
!.========================= DEBUT DES DECLARATIONS ====================
! -----  ARGUMENTS
#include "asterf_types.h"
#include "jeveux.h"
#include "asterfort/codent.h"
#include "asterfort/codnop.h"
#include "asterfort/jedema.h"
#include "asterfort/jemarq.h"
#include "asterfort/jeveuo.h"
#include "asterfort/jjmmaa.h"
    integer :: imod, nbnode
! -----  VARIABLES LOCALES
    integer :: inode, node
    character(len=1) :: prfnoe
    character(len=4) :: ct(3)
    character(len=8) :: chnode
    character(len=12) :: chenti, aut
    character(len=80) :: chfone
    aster_logical :: dim3d
    real(kind=8) :: zcte, x, y, z
    real(kind=8), pointer :: coor(:) => null()
    integer, pointer :: detr(:) => null()
    integer, pointer :: info(:) => null()
!
!
!.========================= DEBUT DU CODE EXECUTABLE ==================
    call jemarq()
!
! --- INITIALISATIONS :
!     ---------------
    chnode = '        '
    prfnoe = 'N'
    chfone = '%FORMAT=(1*NOM_DE_NOEUD,3*COORD)'
    chenti = 'NBOBJ=      '
    call codent(nbnode, 'G', chenti(7:12))
!
! --- DATE :
!     ----
    call jjmmaa(ct, aut)
!
! --- RECUPERATION DES VECTEURS DE TRAVAIL :
!     ------------------------------------
    call jeveuo('&&PRECOU.INFO.NOEUDS', 'L', vi=info)
    call jeveuo('&&PRECOU.DETR.NOEUDS', 'L', vi=detr)
    call jeveuo('&&PRECOU.COOR.NOEUDS', 'L', vr=coor)
!
    call codnop(chnode, prfnoe, 1, 1)
!
! --- TEST SI MAILLAGE 2D OU 3D :
!     ------------------------------------------------------
    dim3d = .true.
! modif Luc : je vire le 2d en cas de z=cste 
!    dim3d = .false.
!    zcte = coor(3)
!    do 10 inode = 2, nbnode
!        if (coor(3*(inode-1)+3) .ne. zcte) then
!            dim3d=.true.
!            goto 10
!        endif
! 10 end do
!
    if (dim3d) then
        write(imod,'(A,4X,A)')'COOR_3D',chenti
    else
        write(imod,'(A,4X,A)')'COOR_2D',chenti
    endif
!      WRITE(IMOD,'(11X,2A,12X,A,A2,A,A2,A,A4)')
!     +'AUTEUR=',AUT,'DATE=',CT(1)(1:2),'/',CT(2)(1:2),'/',CT(3)
!
    write(imod,'(A)') chfone
!
! --- ECRITURE DES NUMEROS DE NOEUDS ET DE LEURS COORDONNEES :
!     ------------------------------------------------------
    do 20 inode = 1, nbnode
        node = info(inode)
!
!      ON N'ECRIT PAS LES NOEUDS ORPHELINS
        if (detr(node+1) .eq. 0) goto 20
!
        x = coor(3*(inode-1)+1)
        y = coor(3*(inode-1)+2)
        z = coor(3*(inode-1)+3)
!
        call codent(node, 'G', chnode(2:8))
! modif Luc formats
        if (dim3d) then
            write(imod,'(X,A8,3(X,1PE21.14))') chnode,x,y,z
        else
            write(imod,'(X,A8,2(X,1PE21.14))') chnode,x,y
        endif
!
 20 end do
!
    write(imod,'(A)') 'FINSF'
    write(imod,'(A)') '%'
!
    call jedema()
!
!.============================ FIN DE LA ROUTINE ======================
end subroutine