Télécharger cpamin.eso

Retour à la liste

Numérotation des lignes :

  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