Télécharger combyl.eso

Retour à la liste

Numérotation des lignes :

  1. C COMBYL SOURCE BP208322 15/06/26 21:15:07 8562
  2. c SUBROUTINE COMBYL(ITACH,ITAFL,IRETT)
  3. SUBROUTINE COMBYL(ITACH,ITAFL,N,IRETT)
  4. *______________________________________________________________________
  5. *
  6. * CE SUBROUTINE EFFECTUE LA COMBINAISON LINEAIRE DES CHAMELEM
  7. * CONTENUS DANS ITACH, AVEC LES FLOTTANTS CONTENUS DANS ITAFL
  8. * LE RESULTAT EST UN CHAMELEM,MIS DANS IRETT
  9. * ATTENTION : TAFL EN DOUBLE PRECISION
  10. *
  11. * PASSAGE AUX NOUVEAU CHAMELEM PAR JM CAMPENON LE 01/91
  12. *
  13. *----------------------------------------------------------------------
  14. IMPLICIT INTEGER(I-N)
  15. IMPLICIT REAL*8 (A-H,O-Z)
  16. *
  17. SEGMENT ITACH(0)
  18. SEGMENT/ITAFL/(TAFL(0)*D)
  19. *
  20. IRETT=0
  21. c SEGACT ITACH,ITAFL
  22. *
  23. * BOUCLE SUR LES CHAMELEMS
  24. *
  25. c NCHAM=ITACH(/1)
  26. NCHAM=N
  27. DO 201 ICHAM=1,NCHAM
  28. IPCHAM=ITACH(ICHAM)
  29. VAL=TAFL(ICHAM)
  30. *
  31. CALL MUCHEL(IPCHAM,VAL,IRET,1)
  32. IF(IRET.EQ.0) GO TO 298
  33. IF(ICHAM.EQ.1) THEN
  34. IRETT=IRET
  35. ELSE
  36. CALL ADCHEL(IRETT,IRET,IRETOU,1)
  37. CALL DTCHAM(IRET)
  38. IF(IRETOU.EQ.0) GO TO 298
  39. CALL DTCHAM(IRETT)
  40. IRETT=IRETOU
  41. ENDIF
  42. 201 CONTINUE
  43. GO TO 299
  44. *
  45. 298 IF(IRETT.NE.0) CALL DTCHAM(IRETT)
  46. IRETT=0
  47. *
  48. 299 CONTINUE
  49. c SEGDES ITAFL
  50. c SEGDES ITACH
  51. RETURN
  52. END
  53.  
  54.  
  55.  

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