Télécharger manuc2.eso

Retour à la liste

Numérotation des lignes :

  1. C MANUC2 SOURCE CHAT 05/01/13 01:28:28 5004
  2. SUBROUTINE MANUC2(VALFLU,IPGEOM,NCOMP,IPCHPO)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. ************************************************************************
  6. *
  7. * M A N U C 2
  8. * -----------
  9. *
  10. * FONCTION:
  11. * ---------
  12. *
  13. * CREER UN CHPOINT CONTENANT UNE OU PLUSIEURS COMPOSANTES A VALEUR
  14. * ALGEBRIQUE CONSTANTE SUR UN MAILLAGE
  15. *
  16. * MODULES UTILISES:
  17. * -----------------
  18. *
  19. -INC CCOPTIO
  20. *
  21. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  22. * -----------
  23. *
  24. * VALFLU (E) VALEUR ALGEBRIQUE DE LA COMPOSANTE
  25. * IPGEOM (E) POINTEUR SUR L'OBJET MAILLAGE
  26. * NCOMP (E) DESIGNE LE NOMBRE DE COMPOSANTES
  27. * IPCHPO (S) POINTEUR SUR LE CHPOINT RESULTAT
  28. *
  29. CHARACTER*4 MOCOMP(5)
  30. DATA MOCOMP/'COM1','COM2','COM3','COM4','COM5'/
  31. *
  32. * AUTEUR, DATE DE CREATION:
  33. * -------------------------
  34. *
  35. * DENIS ROBERT,LE 28/01/88.
  36. *
  37. * LANGAGE:
  38. * --------
  39. *
  40. * FORTRAN77
  41. *
  42. ************************************************************************
  43. *
  44. IF(NCOMP.GT.5)THEN
  45. CALL ERREUR(5)
  46. RETURN
  47. ENDIF
  48. IF(NCOMP.EQ.1)THEN
  49. CALL ECRREE(VALFLU)
  50. CALL ECRCHA('SCAL')
  51. CALL ECRENT(1)
  52. CALL ECROBJ('MAILLAGE',IPGEOM)
  53. CALL MANUCH
  54. ELSE
  55. DO 10 ICOMP=1,NCOMP
  56. CALL ECRREE(VALFLU)
  57. CALL ECRCHA(MOCOMP(ICOMP))
  58. 10 CONTINUE
  59. CALL ECRENT(NCOMP)
  60. CALL ECROBJ('MAILLAGE',IPGEOM)
  61. CALL MANUCH
  62. ENDIF
  63. *
  64. CALL LIROBJ('CHPOINT',IPCHPO,1,IRET)
  65. IF (IERR.NE.0) RETURN
  66. *
  67. END
  68.  
  69.  

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