PROGRAM  CREE_SURF_P2
c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
c  but : a partir du maillage d'une surface de type nopo modulef
c        creer un maillage de cette surface avec des elements triangles
c        courbes (isoparametriques P2), droits (P1 ou P2) . 
c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
c  Programmeur : S. Balac - IRMAR - Juin 1995
c  Derniere modification: 21 Juin 1995
c xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

      INTEGER LM
      PARAMETER (LM = 5000000)
      COMMON M(LM)
      CALL INITIS(M,LM,0,0)
      CALL APSUP2(M)
      END