Télécharger menfo2.eso

Retour à la liste

Numérotation des lignes :

  1. C MENFO2 SOURCE CHAT 05/01/13 01:43:22 5004
  2. C met le champoint sous une forme simple
  3. C
  4. subroutine menfo2(ichp,fer,xproj)
  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 XPROJ(3,IMAX)
  11. SEGMENT /FER/(NFI(ITT),MAI(IPP),ITOUR),AFER.FER
  12. -INC SMCHPOI
  13. -INC CCOPTIO
  14. -INC SMCOORD
  15. -INC SMELEME
  16. do 10 i=1,mai(itour+2)-mai(itour+1)
  17. xr(i)=xproj(1,i+mai(itour+1))
  18. yr(i)=xproj(2,i+mai(itour+1))
  19. 10 continue
  20. return
  21. end
  22.  
  23.  

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