Télécharger clicfg.eso

Retour à la liste

Numérotation des lignes :

  1. C CLICFG SOURCE PV 16/11/26 21:15:11 9205
  2. subroutine clicfg(pConfi,jcolac)
  3. C=======================================================================
  4. C COLlaborateur LIer ConFiGuration
  5. C Renumerote correctement la configuration pConfi et recupere les
  6. C noeuds manquants depuis la configuration actuelle
  7. C=======================================================================
  8. integer nNoCo,iNoCo,iNoLo,i
  9. integer posXco,posXlo
  10. integer iDiDis,bkidim
  11. integer nbpts
  12. -INC CCOPTIO
  13. -INC SMCOORD
  14. -INC TMCOLAC
  15. C-INC SMELEME
  16. pointeur pConfi.MCOORD
  17. pointeur tempC.MCOORD
  18. pointeur jcolac.ICOLAC
  19. pointeur pile.ITLACC
  20. C write(ioimp,*) 'Entre dans CLICFG'
  21. if (pConfi.ne.0) then
  22. segini,tempC=pConfi
  23. segact mcoord
  24. nbpts= mcoord.xcoor(/1)/(idim+1)
  25. segadj pConfi
  26. segact,pConfi=mcoord
  27. segdes mcoord
  28. segdes pConfi
  29. segact pConfi*mod
  30. pile=jcolac.kcola(32)
  31. nNoCo=pile.itlac(/1)
  32. do iNoCo=1,nNoCo
  33. iNoLo=pile.itlac(iNoCo)
  34. posXlo=(IDIM+1)*(iNoLo-1)
  35. posXco=(IDIM+1)*(InoCo-1)
  36. do i=1,IDIM+1
  37. pConfi.xcoor(posXlo+i)=tempC.xcoor(posXco+i)
  38. enddo
  39. enddo
  40. segsup tempC
  41. segdes pConfi
  42. else
  43. write(ioimp,*) 'Erreur: pointeur vers un objet CONFIGUR nul'
  44. call erreur(5)
  45. endif
  46. C write(ioimp,*) 'Sortie de CLICFG'
  47. end
  48.  
  49.  
  50.  
  51.  

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