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.  
  13. -INC PPARAM
  14. -INC CCOPTIO
  15. -INC SMCOORD
  16. -INC SMELEME
  17. * on insere a la fin de fer les pts qui nous interessent de facon a ce
  18. * qu'ils soient projetes
  19. mchpoi=ichp
  20. segact mchpoi
  21. if (ipchp(/1).ne.1) call erreur (180)
  22. if (ierr.ne.0) return
  23. msoupo=ipchp(1)
  24. segact msoupo
  25. meleme=igeoc
  26. segact meleme
  27. mpoval=ipoval
  28. segact mpoval
  29. if (vpocha(/2).ne.1) call erreur(180)
  30. npc=num(/2)
  31. its=nfi(/1)
  32. itt=its+npc
  33. ipp=mai(/1)+1
  34. segadj fer
  35. segini ichp
  36. itt=mai(itour+1)
  37. mai(itour+2)=itt+npc
  38. do 10 i=1,num(/2)
  39. ip=num(1,i)
  40. nfi(itt+i)=ip
  41. den(i)=vpocha(i,1)
  42. 10 continue
  43. segdes mchpoi,msoupo,mpoval,meleme
  44. return
  45. end
  46.  
  47.  

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