Télécharger ltl.eso

Retour à la liste

Numérotation des lignes :

  1. C LTL SOURCE CHAT 05/01/13 01:25:53 5004
  2. SUBROUTINE LTL
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C======================================================================
  6. C = CALCUL DU PRODUIT SCALAIRE DE DEUX LISTREEL =
  7. C = =
  8. C = SYNTAXE : =
  9. C = =
  10. C = FLOT = LTL LIST1 (LIST2 FLOT1 FLOT2) ; =
  11. C = =
  12. C = LIST1, LIST2 : LISTREEL =
  13. C = =
  14. C = FLOT, FLOT1, FLOT2 : FLOTTANT =
  15. C = =
  16. C = FLOT = (FLOT1*LIST1) SCALAIRE (FLOT2*LIST2) =
  17. C = =
  18. C = SI LIST2 N'EST PAS DONNE, LIST2=LIST1 =
  19. C = SI FLOT2 N'EST PAS DONNE, FLOT2=1. =
  20. C = ST FLOT1 ET FLOT2 NE SONT PAS DONNE ,FLOT1=FLOT2=1. =
  21. C = =
  22. C = CREATION : 24/09/90 =
  23. C = PROGRAMMEUR : P.P. =
  24. C======================================================================
  25. C
  26. -INC CCOPTIO
  27. -INC SMLREEL
  28. C
  29. FLOT1=1.D0
  30. C
  31. CALL LIROBJ('LISTREEL',MLREE1,1,IRET)
  32. IF(IRET.EQ.0) GOTO 666
  33. C
  34. CALL LIROBJ('LISTREEL',MLREE2,0,IRET)
  35. IF(IRET.EQ.0) MLREE2=0
  36. IF(MLREE1.EQ.MLREE2) MLREE2=0
  37. C
  38. CALL LIRREE(FLOT,0,IRET)
  39. IF(IRET.NE.0)THEN
  40. FLOT1=FLOT
  41. CALL LIRREE(FLOT,0,IRET)
  42. IF(IRET.NE.0)FLOT1=FLOT*FLOT1
  43. ENDIF
  44. C
  45. SEGACT, MLREE1
  46. NPT=MLREE1.PROG(/1)
  47. IF (MLREE2.NE.0)THEN
  48. SEGACT, MLREE2
  49. NPTT=MLREE2.PROG(/1)
  50. IF(NPT.NE.NPTT)THEN
  51. CALL ERREUR(577)
  52. SEGDES, MLREE1, MLREE2
  53. GOTO 666
  54. ENDIF
  55. ENDIF
  56. C
  57. FLOT=0.D0
  58. IF (MLREE2.EQ.0)THEN
  59. DO 10 IE1=1,NPT
  60. FLOT=FLOT+FLOT1*MLREE1.PROG(IE1)**2
  61. 10 CONTINUE
  62. SEGDES, MLREE1
  63. ELSE
  64. DO 11 IE1=1,NPT
  65. FLOT=FLOT+FLOT1*MLREE1.PROG(IE1)*MLREE2.PROG(IE1)
  66. 11 CONTINUE
  67. SEGDES, MLREE1, MLREE2
  68. ENDIF
  69. C
  70. CALL ECRREE(FLOT)
  71. C
  72. 666 RETURN
  73. END
  74.  
  75.  
  76.  
  77.  
  78.  

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