Télécharger noepr2i.eso

Retour à la liste

Numérotation des lignes :

  1. C NOEPR2I SOURCE PV 16/06/15 21:15:08 8961
  2. subroutine noepr2i(ith)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. common/cnumop/fcout2c(64),fcoutc(64),iadjc,jadjcc,nrelongc,
  6. > noelonc,isensc(64),dimlonc(64),masqc,nodesc,iposc,nbtotc,
  7. > lfrontc(64),londimc,lpivc(64),ipointc,noel2c,
  8. > boolc(64),ldim2c(64),nbthrc,pivotc(50,64),npointc(64),
  9. > npoint2c(64),imaxc,lfronc(64),iccon
  10. integer dimlon,dimlonc,pivotc,boolc,pivot(50)
  11. segment iadj(0)
  12. segment jadjc(0)
  13. segment nrelong(0)
  14. segment noelon(0)
  15. segment londim(0)
  16. segment masque
  17. logical masq(nodes)
  18. endsegment
  19. segment ipos(0)
  20. segment noel2(0)
  21. ** write (6,*) ' noepr2i ith ',ith
  22. iadj=iadjc
  23. jadjc=jadjcc
  24. nrelong=nrelongc
  25. noelon=noelonc
  26. noel2=noel2c
  27. isens=isensc(ith)
  28. dimlon=dimlonc(ith)
  29. masque=masqc
  30. nodes=nodesc
  31. ipos=iposc
  32. nbtot=nbtotc
  33. londim=londimc
  34. ipoint=ipointc
  35. nbthr=nbthrc
  36. lfron=lfronc(ith)
  37. icco=iccon
  38. call noepr2e(iadj(1),jadjc(1),pivotc(1,ith),
  39. > nrelong(1+(ith-1)*nodes),
  40. > noelon(1+(ith-1)*nodes),isensc(ith),dimlonc(ith),masq(1),
  41. > nodes,ipos(1),nbtot,lfrontc(ith),lfronc(ith),
  42. > londim(1+(ith-1)*nodes),fcout2c(ith),lpivc(ith),ipoint,
  43. > noel2(1),boolc(ith),fcoutc(ith),ldim2c(ith),
  44. > ith,nbthr,npointc(ith),npoint2c(ith),imaxc,icco)
  45. oov(1)=0
  46. end
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  

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