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.  
  14. -INC PPARAM
  15. -INC CCOPTIO
  16. -INC SMCOORD
  17. -INC SMELEME
  18. do 10 i=1,mai(itour+2)-mai(itour+1)
  19. xr(i)=xproj(1,i+mai(itour+1))
  20. yr(i)=xproj(2,i+mai(itour+1))
  21. 10 continue
  22. return
  23. end
  24.  
  25.  

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