Télécharger la plaquette Cast3M


fr en

Télécharger dyne25.eso

Retour à la liste

Numérotation des lignes : 

dyne25

  1. C DYNE25    SOURCE    PV        20/03/30    21:18:16     10567          
  2.       SUBROUTINE DYNE25(IBAS,KCPR,IK)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. *--------------------------------------------------------------------*
  6. *                                                                    *
  7. *     Op{rateur DYNE : algorithme de Fu - de Vogelaere               *
  8. *     ________________________________________________               *
  9. *                                                                    *
  10. *     Recherche des points de r{f{rence d{finis par les points       *
  11. *     rep}res de la base modale.                                     *
  12. *                                                                    *
  13. *     Param}tres:                                                    *
  14. *                                                                    *
  15. * e   IBAS    Table repr{sentant une base modale                     *
  16. *  s  KCPR    Segment des points                                     *
  17. * es  IK      Compteur                                               *
  18. *                                                                    *
  19. *     Auteur, date de cr{ation:                                      *
  20. *                                                                    *
  21. *     Lionel VIVAN, le 24 octobre 1989.                              *
  22. *                                                                    *
  23. *--------------------------------------------------------------------*
  24.  
  25. -INC PPARAM
  26. -INC CCOPTIO
  27. -INC SMCOORD
  28. *
  29.       SEGMENT,ICPR(nbpts)
  30. *
  31.       LOGICAL L0,L1
  32.       CHARACTER*4  MO2
  33.       CHARACTER*8  TYPRET,CHARRE
  34. *
  35.       ICPR = KCPR
  36. *
  37.       IMODE = 0
  38.  10   CONTINUE
  39.       ITBMOD = 0
  40.       IMODE = IMODE + 1
  41.       TYPRET = ' '
  42.       CALL ACCTAB(IBAS,'ENTIER',IMODE,X0,' ',L0,IP0,
  43.      &                  TYPRET,I1,X1,CHARRE,L1,ITBMOD)
  44.       IF (IERR.NE.0) RETURN
  45.       IF (ITBMOD.NE.0) THEN
  46.          CALL ACCTAB(ITBMOD,'MOT',I0,X0,'SOUSTYPE',L0,IP0,
  47.      &               'MOT',I1,X1,MO2,L1,IP1)
  48.          IF (IERR.NE.0) RETURN
  49.          IF (MO2.EQ.'MODE') THEN
  50. *
  51. *           Le point rep}re nous {choit
  52. *
  53.             CALL ACCTAB(ITBMOD,'MOT',I0,X0,'POINT_REPERE',L0,IP0,
  54.      &                         'POINT',I1,X1,' ',L1,KNOE)
  55.             IF (IERR.NE.0) RETURN
  56.             IF (KNOE.NE.0) THEN
  57.                IF (ICPR(KNOE).EQ.0) THEN
  58.                   IK = IK + 1
  59.                   ICPR(KNOE) = IK
  60.       IF (IIMPI.EQ.333) THEN
  61.       WRITE(IOIMP,*)'DYNE25 : basemo. ICPR(',KNOE,')=',ICPR(KNOE)
  62.       ENDIF
  63.                ENDIF
  64.             ENDIF
  65.          ELSE
  66.             CALL ERREUR(314)
  67.             RETURN
  68.          ENDIF
  69.          GOTO 10
  70.       ENDIF
  71. *
  72.       END
  73.  
  74.  
  75.  
  76.  

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