Télécharger la plaquette Cast3M


fr en

Télécharger trjcn6.eso

Retour à la liste

Numérotation des lignes : 

trjcn6

  1. C TRJCN6    SOURCE    CB215821  20/11/25    13:41:30     10792          
  2.       SUBROUTINE TRJCN6(IPTVIT,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 ( cas transitoire )
  9. C                 CALCUL DES TRAJECTOIRES
  10. C      ENTREES
  11. C          MELEME POINTEUR DU MAILLAGE
  12. C          IPTVIT POINTEUR DE LA TABLE DES VITESSES OU FLUX
  13. C          NCC NOMBRE DE COMPOSANTES ATTENDUES POUR LE CHPOIN
  14. C
  15. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  16.       CHARACTER*4 NOMTOT
  17. -INC SMELEME
  18. -INC SMTABLE
  19. -INC SMCHPOI
  20.  
  21. -INC PPARAM
  22. -INC CCOPTIO
  23.        CHARACTER*8 MTYPI,CHARI,MTYPR,CHARR
  24. C
  25.       MTABLE=IPTVIT
  26.       SEGACT MTABLE
  27.       NVIPT= MLOTAB
  28.       SEGACT MELEME
  29.  
  30.            IVALI=0
  31.            XVALI=0.D0
  32.            IRETI=0
  33.            IVALR=0
  34.            XVALR=0.D0
  35.            MTYPI='ENTIER'
  36.            CHARI='        '
  37.            CHARR='        '
  38.            MTYPR='CHPOINT'
  39.            CALL ACCTAB(MTABLE,MTYPI,IVALI,XVALI,CHARI,.TRUE.,
  40.      *      IRETI,MTYPR,IVALR,XVALR,CHARR,.TRUE.,IRETR)
  41.            MCHPO1=IRETR
  42.            SEGACT MCHPO1
  43.       NBCOMP=-1
  44.       NOMTOT='    '
  46.       CALL QUEPOI(MCHPO1,MELEME,INDIC,NBCOMP,NOMTOT)
  47.       IF(INDIC.LT.0)THEN
  48.           CALL ERREUR(21)
  49.           RETURN
  50.       ENDIF
  51.       SEGACT MCHPO1
  52.       MSOUPO=MCHPO1.IPCHP(1)
  53.       SEGACT MSOUPO
  54.       MPOVAL=IPOVAL
  55.       SEGACT MPOVAL
  56.       NC=VPOCHA(/2)
  57.       IF(NC.NE.NCC)THEN
  58.             MOTERR(1:8)='TRJCN3  '
  59.             CALL ERREUR(178)
  60.             RETURN
  61.       ENDIF
  62.       IGEOC1= IGEOC
  63.       SEGDES MPOVAL,MSOUPO,MCHPO1
  64.       DO 10 IVPT=2,NVIPT
  65.            IVALI=IVPT-1
  66.            XVALI=0.D0
  67.            IRETI=0
  68.            IVALR=0
  69.            XVALR=0.D0
  70.            MTYPI='ENTIER'
  71.            CHARI='        '
  72.            CHARR='        '
  73.            MTYPR='CHPOINT'
  74.            CALL ACCTAB(MTABLE,MTYPI,IVALI,XVALI,CHARI,.TRUE.,
  75.      *      IRETI,MTYPR,IVALR,XVALR,CHARR,.TRUE.,IRETR)
  76.            MCHPO2=IRETR
  77.            SEGACT MCHPO2
  78. C
  79.       NBCOMP=-1
  80.       NOMTOT='    '
  82.       CALL QUEPOI(MCHPO2,IGEOC1,INDIC,NBCOMP,NOMTOT)
  83.       IF(INDIC.LT.0)THEN
  84.           CALL ERREUR(21)
  85.           RETURN
  86.       ENDIF
  87.       SEGACT MCHPO2
  88.       MSOUPO=MCHPO2.IPCHP(1)
  89.       SEGACT MSOUPO
  90.       IF (IGEOC.NE.IGEOC1)THEN
  91.           CALL ERREUR(348)
  92.           RETURN
  93.       ENDIF
  94.       SEGDES MSOUPO,MCHPO2
  95.    10 CONTINUE
  96. C     SEGDES MELEME
  97.       RETURN
  98.       END
  99.  
  100.  
  101.  
  102.  

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