Télécharger la plaquette Cast3M


fr en

Télécharger xtx.eso

Retour à la liste

Numérotation des lignes : 

xtx

  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.  
  27. -INC PPARAM
  28. -INC CCOPTIO
  29. *
  30.       DFLO1 = 0.
  31.       DFLO2 = 0.
  32.       XDRET = 0.
  33. *
  34.       CALL LIROBJ('MCHAML',IPCHE1,0,IRETOU)
  35.       IF(IRETOU.EQ.0) GOTO 1000
  36. *
  37. *     CAS DE LA SYNTAXE :  XTX FLO1 CHE1 FLO2 CHE2 ;
  38. *
  39.       CALL LIROBJ('MCHAML',IPCHE2,0,IRETOU)
  40. *
  41.       IF (IRETOU.EQ.0) THEN
  42. *
  43. *     CAS Y1 = XTX CHEL1 ;
  44.         CALL XTX2(IPCHE1,XDRET,IRET)
  45. *
  46.       ELSE
  47.         CALL LIRREE(DFLO1,1,IRETOU)
  48.         IF(IERR.NE.0) RETURN
  49. *
  50.         CALL LIRREE(DFLO2,1,IRETOU)
  51.         IF(IERR.NE.0) RETURN
  52. *
  53.         CALL XTX4(IPCHE1,IPCHE2,DFLO1,DFLO2,XDRET,IRET)
  54. *
  55.       ENDIF
  56.       GOTO 5000
  57. *
  58. *
  59. *     LECTURE D UN CHPOINT
  60. *
  61.  1000 CONTINUE
  62.       CALL LIROBJ('CHPOINT ',ICH1,1,IRETOU)
  63.       IF(IERR.NE.0) RETURN
  64. *
  65. *      CAS DE LA SYNTAXE Y1 = XTX FLO1 CHP1 FL2 CHP2
  66. *
  67.       CALL LIROBJ('CHPOINT ',ICH2,0,IRETOU)
  68. *
  69. *      CAS NORMAL Y1 = XTX CHP1 ;
  70. *
  71.       IF(IRETOU.EQ.0) THEN
  72.         CALL XTX1(ICH1,XDRET)
  73.         IRET = 1
  74.  
  75.       ELSE
  76.         CALL LIRREE(DFLO1,1,IRETOU)
  77.         IF (IERR.NE.0) RETURN
  78.         CALL LIRREE(DFLO2,1,IRETOU)
  79.         IF (IERR.NE.0) RETURN
  80. *
  81.         CALL XTX3(ICH1,ICH2,DFLO1,DFLO2,XDRET,IRET)
  82. *
  83.       ENDIF
  84. C*    GOTO 5000
  85. *
  86.  5000 CONTINUE
  87.       IF (IRET.NE.0) CALL ECRREE(XDRET)
  88.  
  89.       RETURN
  90.       END
  91.  
  92.  
  93.  
  94.  

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