Télécharger la plaquette Cast3M


fr en

Télécharger bapoin.eso

Retour à la liste

Numérotation des lignes : 

bapoin

  1. C BAPOIN    SOURCE    CHAT      05/01/12    21:33:11     5004
  2.       SUBROUTINE BAPOIN(IMAIL,IPT,INOMA,INOPT)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5.  
  6. *--------------------------------------------------------------------*
  7. *                                                                    *
  8. *     correspondance entre les points de l'ancien maillage et du     *
  9. *     nouveau maillage.                                              *
  10. *                                                                    *
  11. *     Param}tres:                                                    *
  12. *                                                                    *
  13. * e   IMAIL   maillage initial                                       *
  14. * e   IPT     point initial                                          *
  15. * e   INOMA   maillage translat{                                     *
  16. * e   INOPT   point translat{                                        *
  17. *                                                                    *
  18. *     Auteur, date de cr{ation:                                      *
  19. *                                                                    *
  20. *     Lionel VIVAN, le 9 mai 1990.                                   *
  21. *                                                                    *
  22. *--------------------------------------------------------------------*
  23. *                                                                    *
  24.  
  25. -INC PPARAM
  26. -INC CCOPTIO
  27. -INC SMELEME
  28. *
  29.       INOPT = 0
  30.       MELEME = IMAIL
  31.       SEGACT MELEME
  32.       NBEL = NUM(/2)
  33.       NBNO = NUM(/1)
  34.       IPT1 = INOMA
  35.       SEGACT IPT1
  36.       DO 10 IE = 1,NBEL
  37.          DO 20 IN = 1,NBNO
  38.             INOE = NUM(IN,IE)
  39.             IF (INOE.EQ.IPT) THEN
  40.                INOPT = IPT1.NUM(IN,IE)
  41.                GOTO 30
  42.             ENDIF
  43.  20         CONTINUE
  44. *        end do
  45.  10      CONTINUE
  46. *     end do
  47.       CALL ERREUR(504)
  48.  30   CONTINUE
  49.       SEGDES IPT1
  50.       SEGDES MELEME
  51. *
  52.       END
  53.  
  54.  

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