Télécharger cpamin.eso

Retour à la liste

Numérotation des lignes :

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

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