Télécharger noepr2i.eso

Retour à la liste

Numérotation des lignes :

noepr2i
  1. C NOEPR2I SOURCE PV 20/01/16 21:15:10 10501
  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,ncouch
  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 ipos(0)
  17. segment noel2(0)
  18. ** write (6,*) ' noepr2i ith ',ith
  19. iadj=iadjc
  20. jadjc=jadjcc
  21. nrelong=nrelongc
  22. noelon=noelonc
  23. noel2=noel2c
  24. isens=isensc(ith)
  25. dimlon=dimlonc(ith)
  26. nodes=nodesc
  27. ipos=iposc
  28. nbtot=nbtotc
  29. londim=londimc
  30. ipoint=ipointc
  31. nbthr=nbthrc
  32. lfron=lfronc(ith)
  33. icco=iccon
  34. icouch=ncouch
  35. call noepr2e(iadj(1),jadjc(1),pivotc(1,ith),
  36. > nrelong(1+(ith-1)*nodes),
  37. > noelon(1+(ith-1)*nodes),isensc(ith),dimlonc(ith),
  38. > nodes,ipos(1),nbtot,lfrontc(ith),lfronc(ith),
  39. > londim(1+(ith-1)*nodes),fcout2c(ith),lpivc(ith),ipoint,
  40. > noel2(1),boolc(ith),fcoutc(ith),ldim2c(ith),
  41. > ith,nbthr,npointc(ith),npoint2c(ith),imaxc,icco,icouch)
  42. end
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  

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