Télécharger menfor.eso

Retour à la liste

Numérotation des lignes :

  1. C MENFOR SOURCE CHAT 05/01/13 01:43:27 5004
  2. C met le champoint sous une forme simple
  3. C
  4. subroutine menfor(ichp,fer)
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8 (A-H,O-Z)
  7. segment ichp
  8. real*8 xr(npc),yr(npc),den(npc)
  9. endsegment
  10. SEGMENT /FER/(NFI(ITT),MAI(IPP),ITOUR),AFER.FER
  11. -INC SMCHPOI
  12. -INC CCOPTIO
  13. -INC SMCOORD
  14. -INC SMELEME
  15. * on insere a la fin de fer les pts qui nous interessent de facon a ce
  16. * qu'ils soient projetes
  17. mchpoi=ichp
  18. segact mchpoi
  19. if (ipchp(/1).ne.1) call erreur (180)
  20. if (ierr.ne.0) return
  21. msoupo=ipchp(1)
  22. segact msoupo
  23. meleme=igeoc
  24. segact meleme
  25. mpoval=ipoval
  26. segact mpoval
  27. if (vpocha(/2).ne.1) call erreur(180)
  28. npc=num(/2)
  29. its=nfi(/1)
  30. itt=its+npc
  31. ipp=mai(/1)+1
  32. segadj fer
  33. segini ichp
  34. itt=mai(itour+1)
  35. mai(itour+2)=itt+npc
  36. do 10 i=1,num(/2)
  37. ip=num(1,i)
  38. nfi(itt+i)=ip
  39. den(i)=vpocha(i,1)
  40. 10 continue
  41. segdes mchpoi,msoupo,mpoval,meleme
  42. return
  43. end
  44.  
  45.  

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