Télécharger xtx.eso

Retour à la liste

Numérotation des lignes :

  1. C XTX SOURCE FANDEUR 11/04/12 21:16:22 6938
  2. SUBROUTINE XTX
  3.  
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8 (A-H,O-Z)
  6.  
  7. *_______________________________________________________________________
  8. *
  9. * OPERATEUR XTX : EFFECTUE LA NORME XT.X
  10. *
  11. * ON RETIRE DU CHPOINT LES MULT. DE LAGRANGE .
  12. *
  13. * SYNTAXE : Y = XTX X ;
  14. * Y = XTX FLO1 CHEL1 Y CHEL2 ;
  15. * FLO1 FLO2 FLOTTANT CHEL1 CHEL2 MCHAML
  16. * OU CHPOINT
  17. * CHEL1 CHEL2 MCHAML OU CHPOINT
  18. * EFFECTUE LA NORME DE LA COMBINAISON LINEAIRE
  19. * Y : FLOTTANT
  20. * X : OBJET DE TYPE CHPOINT
  21. *
  22. * PASSAGE AUX NOUVEAUX CHAMELEM PAR JM CAMPENON LE 02/91
  23. *
  24. *_______________________________________________________________________
  25. *
  26. -INC CCOPTIO
  27. *
  28. DFLO1 = 0.
  29. DFLO2 = 0.
  30. XDRET = 0.
  31. *
  32. CALL LIROBJ('MCHAML',IPCHE1,0,IRETOU)
  33. IF(IRETOU.EQ.0) GOTO 1000
  34. *
  35. * CAS DE LA SYNTAXE : XTX FLO1 CHE1 FLO2 CHE2 ;
  36. *
  37. CALL LIROBJ('MCHAML',IPCHE2,0,IRETOU)
  38. *
  39. IF (IRETOU.EQ.0) THEN
  40. *
  41. * CAS Y1 = XTX CHEL1 ;
  42. CALL XTX2(IPCHE1,XDRET,IRET)
  43. *
  44. ELSE
  45. CALL LIRREE(DFLO1,1,IRETOU)
  46. IF(IERR.NE.0) RETURN
  47. *
  48. CALL LIRREE(DFLO2,1,IRETOU)
  49. IF(IERR.NE.0) RETURN
  50. *
  51. CALL XTX4(IPCHE1,IPCHE2,DFLO1,DFLO2,XDRET,IRET)
  52. *
  53. ENDIF
  54. GOTO 5000
  55. *
  56. *
  57. * LECTURE D UN CHPOINT
  58. *
  59. 1000 CONTINUE
  60. CALL LIROBJ('CHPOINT ',ICH1,1,IRETOU)
  61. IF(IERR.NE.0) RETURN
  62. *
  63. * CAS DE LA SYNTAXE Y1 = XTX FLO1 CHP1 FL2 CHP2
  64. *
  65. CALL LIROBJ('CHPOINT ',ICH2,0,IRETOU)
  66. *
  67. * CAS NORMAL Y1 = XTX CHP1 ;
  68. *
  69. IF(IRETOU.EQ.0) THEN
  70. CALL XTX1(ICH1,XDRET)
  71. IRET = 1
  72.  
  73. ELSE
  74. CALL LIRREE(DFLO1,1,IRETOU)
  75. IF (IERR.NE.0) RETURN
  76. CALL LIRREE(DFLO2,1,IRETOU)
  77. IF (IERR.NE.0) RETURN
  78. *
  79. CALL XTX3(ICH1,ICH2,DFLO1,DFLO2,XDRET,IRET)
  80. *
  81. ENDIF
  82. C* GOTO 5000
  83. *
  84. 5000 CONTINUE
  85. IF (IRET.NE.0) CALL ECRREE(XDRET)
  86.  
  87. RETURN
  88. END
  89.  
  90.  
  91.  
  92.  

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