Télécharger la plaquette Cast3M


fr en

Télécharger cpamin.eso

Retour à la liste

Numérotation des lignes : 

cpamin

  1. C CPAMIN    SOURCE    PV        17/12/05    21:15:34     9646           
  2.       subroutine cpamin(pMinte,bu,bufPos)
  3. C=======================================================================
  4. C     COLlaborateur PAQuettage MINte
  5. C     Ajout du segment pMinte dans le buffer d'envoi bu
  6. C=======================================================================
  7.       integer nbno,nbpgau
  8.       integer bufPos
  9.       integer lonBuf
  10.  
  11. -INC PPARAM
  12. -INC CCOPTIO
  13. -INC SMINTE
  14. -INC TMCOLAC
  15.       segment BUFFER
  16.          character ffer(lonBuf)
  17.       endsegment
  18.       segment LISNOD
  19.          integer liste(nNoeud)
  20.       endsegment
  21.       pointeur pMinte.MINTE
  22.       pointeur bu.BUFFER
  23.  
  24. C      write(ioimp,*) 'Entre dans CPAMIN'
  25. C      write(ioimp,*) 'Position du buffer',bufPos
  26.       if (pMinte.ne.0) then
  27.          segact pMinte
  28.          lonBuf=bu.ffer(/2)
  29.          nbno     =pMinte.shptot(/2)
  30.          nbpgau   =pMinte.shptot(/3)
  31. C Ecriture des tailles
  32.          call mpipaI(nbno,1,bu,bufPos)
  33.          call mpipaI(nbpgau,1,bu,bufPos)
  34. C         write(ioimp,*) 'nbno, nbpgau',nbno,nbpgau
  35. C Ecriture du poids des points de Gauss
  36.          call mpipaR(pMinte.poigau,nbpgau,bu,bufPos)
  37.  
  38. C Ecriture des coordonnees
  39.          call mpipaR(pMinte.qsigau,nbpgau,bu,bufPos)
  40.          call mpipaR(pMinte.etagau,nbpgau,bu,bufPos)
  41.          call mpipaR(pMinte.dzegau,nbpgau,bu,bufPos)
  42.  
  43. C Ecriture de la valeur des foncitons de forme aux points de Gauss
  44.          call mpipaR(pMinte.shptot,6*nbno*nbpgau,bu,bufPos)
  45.          segdes pMinte
  46.       else
  47.          write(ioimp,*) 'Erreur: pointeur vers un objet MINTE nul'
  48.          call erreur(5)
  49.       endif
  50. C      write(ioimp,*) 'Position du buffer',bufPos
  51. C      write(ioimp,*) 'Sortie de CPAMIN'
  52.       end
  53.  
  54.  
  55.  
  56.  
  57.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales