Télécharger optim.eso

Retour à la liste

Numérotation des lignes :

  1. C OPTIM SOURCE PV 16/11/17 22:00:55 9180
  2. SUBROUTINE OPTIM(MATRIK,LL)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5.  
  6.  
  7. SEGACT MATRIK*MOD
  8. PMORS=IRIGEL(5,LL)
  9. IZA=IRIGEL(6,LL)
  10. SEGACT PMORS
  11. SEGACT IZA
  12.  
  13. NTT=IA(/1)-1
  14. NJA=JA(/1)
  15. NBVA=NJA
  16. SEGINI PMS1,IZA1
  17.  
  18. M=0
  19. MM=0
  20. II=0
  21. PMS1.IA(1)=1
  22. DO I=1,NTT
  23. LI=IA(I)
  24. NB=IA(I+1)-IA(I)
  25.  
  26. DO J=1,NB
  27. M=M+1
  28. MM=MM+1
  29. IDUA=JA(LI+J-1)
  30. PMS1.JA(MM)=IDUA
  31.  
  32. IF (A(M).EQ.(0.0)) THEN
  33. MM=MM-1
  34. ELSE
  35. IZA1.A(MM)=A(M)
  36. END IF
  37. END DO
  38. PMS1.IA(I+1)=MM+1
  39. END DO
  40.  
  41. NBVA=MM
  42. NJA=MM
  43. SEGADJ IZA1
  44.  
  45. SEGDES PMS1,IZA1
  46. SEGSUP PMORS,IZA
  47. IRIGEL(5,LL)=PMS1
  48. IRIGEL(6,LL)=IZA1
  49. SEGDES MATRIK
  50. END
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  

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