SUBROUTINE CALCOO(NTYP,NREF,NARE,S1,S2,S12) 
c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
c but : RENVOI LES COORDONNES DU NOEUD S12 AJOUTÉ SUR L'ARRÊTE [S1,S2]
c ooo   EN FONCTION DU NUMERO DE REFERENCE DE L'ELT
c 
c IN: 
c  S1(3),S2(3) : COORDONNÉES DES 2 EXTREMITÉS DE L'ARRÊTE 
c  NREF : NUMÉRO DE RÉFÉRENCE DE L'ÉLT CONSIDRERÉ -> DISTINGUER PLUSIEURS CAS
c  NARE : NUMÉRO DE RÉFÉRENCE DE l'ARETE CONSIDRERÉ
c  NTYP : TYPE DE L'ELT (1: P1 - 2 P2)
c OUT:
c  S12(3) : COORDONNÉES DU NOEUD AJOUTÉ SUR L'ARRÊTE [S1,S2]
c
c A PROGRAMMER PAR L'UTILISATEUR
c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
c  Programmeur :  S. Balac - IRMAR - Juin 1995
c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
      REAL S1(*),S2(*),S12(*)
      INTEGER NTYP,NREF
C
C ON AJOUTE UN NOEUD A UN ELEMENT P2 UNIQUEMENT!
      IF (NTYP.EQ.1) RETURN
C
C
10    FORMAT(' LA SUBROUTINE CALCOO DOIT ETRE ECRITE AVANT APPEL DU',
     +       ' MODULE.',/)
      WRITE (IINFO('I'),10)
      CALL ARRET(86)
C
C
      END