Télécharger combil.eso

Retour à la liste

Numérotation des lignes :

  1. C COMBIL SOURCE BP208322 15/06/26 21:15:07 8562
  2. c SUBROUTINE COMBIL(ITACH,ITAFL,IRETT)
  3. SUBROUTINE COMBIL(ITACH,ITAFL,N,IRETT)
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8 (A-H,O-Z)
  6. C----------------------------------------------------------------------
  7. C CE SUBROUTINE EFFECTUE LA COMBINAISON LINEAIRE DES CHPOINT
  8. C CONTENUS DANS ITACH, AVEC LES FLOTTANTS CONTENUS DANS ITAFL
  9. C LE RESULTAT EST UN CHPOINT,MIS DANS IRETT
  10. C ATTENTION : TAFL EN DOUBLE PRECISION
  11. c segments actifs en E/S
  12. C----------------------------------------------------------------------
  13. SEGMENT ITACH(0)
  14. SEGMENT/ITAFL/(TAFL(0)*D)
  15. C
  16. IRETT=0
  17. c SEGACT ITACH,ITAFL
  18. C
  19. C BOUCLE SUR LES CHPOINTS
  20. C
  21. c NCHPO=ITACH(/1)
  22. NCHPO=N
  23. ICHPO=ITACH(1)
  24. VAL=TAFL(1)
  25. CALL MUCHPO(ICHPO,VAL,IRETT,1)
  26. DO 201 ICH=2,NCHPO
  27. ICHPO=ITACH(ICH)
  28. VAL=TAFL(ICH)
  29. C
  30. CALL ADCHPO(IRETT,ICHPO,IRETOU,1D0,VAL)
  31. C DESTRUCTION ( SANS GEOM )
  32. CALL DTCHPO(IRETT)
  33. IRETT=IRETOU
  34. 201 CONTINUE
  35. GO TO 299
  36. 299 CONTINUE
  37. c SEGDES ITAFL
  38. c SEGDES ITACH
  39. RETURN
  40. END
  41.  
  42.  
  43.  

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