C CPAMIN    SOURCE    PV        17/12/05    21:15:34     9646           
      subroutine cpamin(pMinte,bu,bufPos)
C=======================================================================
C     COLlaborateur PAQuettage MINte
C     Ajout du segment pMinte dans le buffer d'envoi bu
C=======================================================================
      integer nbno,nbpgau
      integer bufPos
      integer lonBuf

-INC PPARAM
-INC CCOPTIO
-INC SMINTE
-INC TMCOLAC
      segment BUFFER
         character ffer(lonBuf)
      endsegment
      segment LISNOD
         integer liste(nNoeud)
      endsegment
      pointeur pMinte.MINTE
      pointeur bu.BUFFER

C      write(ioimp,*) 'Entre dans CPAMIN'
C      write(ioimp,*) 'Position du buffer',bufPos
      if (pMinte.ne.0) then
         segact pMinte
         lonBuf=bu.ffer(/2)
         nbno     =pMinte.shptot(/2)
         nbpgau   =pMinte.shptot(/3)
C Ecriture des tailles
         call mpipaI(nbno,1,bu,bufPos)
         call mpipaI(nbpgau,1,bu,bufPos)
C         write(ioimp,*) 'nbno, nbpgau',nbno,nbpgau
C Ecriture du poids des points de Gauss
         call mpipaR(pMinte.poigau,nbpgau,bu,bufPos)

C Ecriture des coordonnees
         call mpipaR(pMinte.qsigau,nbpgau,bu,bufPos)
         call mpipaR(pMinte.etagau,nbpgau,bu,bufPos)
         call mpipaR(pMinte.dzegau,nbpgau,bu,bufPos)

C Ecriture de la valeur des foncitons de forme aux points de Gauss
         call mpipaR(pMinte.shptot,6*nbno*nbpgau,bu,bufPos)
         segdes pMinte
      else
         write(ioimp,*) 'Erreur: pointeur vers un objet MINTE nul'
         call erreur(5)
      endif
C      write(ioimp,*) 'Position du buffer',bufPos
C      write(ioimp,*) 'Sortie de CPAMIN'
      end