Télécharger la plaquette Cast3M


fr en

Télécharger trjcn3.eso

Retour à la liste

Numérotation des lignes : 

trjcn3

  1. C TRJCN3    SOURCE    CB215821  20/11/25    13:41:29     10792          
  2.       SUBROUTINE TRJCN3(MCHPO1,MELEME,NCC)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8 (A-H,O-Z)
  5. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  6. C                                                                                     A
  7. C         CONTROLE QUE LES DONNEES SERVANT A CALCULER LES VITESSES
  8. C          SONT COHERENTES
  9. C                 CALCUL DES TRAJECTOIRES
  10. C      ENTREES
  11. C          MELEME POINTEUR DU MAILLAGE
  12. C          MCHPO1 POINTEUR DE LA VITESSE
  13. C          NCC NOMBRE DE COMPOSANTES ATTENDUES POUR LE CHPOIN
  14. C
  15. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  16.       CHARACTER*4 NOMTOT
  17. -INC SMELEME
  18. -INC SMCHPOI
  19.  
  20. -INC PPARAM
  21. -INC CCOPTIO
  22. C
  23.       SEGACT MELEME
  24.       NBCOMP=-1
  25.       NOMTOT='    '
  27.       CALL QUEPOI(MCHPO1,MELEME,INDIC,NBCOMP,NOMTOT)
  28.       IF(INDIC.LT.0)THEN
  29.           CALL ERREUR(21)
  30.           RETURN
  31.       ENDIF
  32.       SEGACT MCHPO1
  33.       MSOUPO=MCHPO1.IPCHP(1)
  34.       SEGACT MSOUPO
  35.       MPOVAL=IPOVAL
  36.       SEGACT MPOVAL
  37.       NC=VPOCHA(/2)
  38.       IF(NC.NE.NCC)THEN
  39.             MOTERR(1:8)='TRJCN3  '
  40.             CALL ERREUR(178)
  41.             RETURN
  42.       ENDIF
  43.       SEGDES MPOVAL,MSOUPO,MCHPO1
  44. C     SEGDES MELEME
  45.       RETURN
  46.       END
  47.  
  48.  
  49.  
  50.  

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