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.  
  20. -INC PPARAM
  21. -INC CCOPTIO
  22. *
  23. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  24. * -----------
  25. *
  26. * VALFLU (E) VALEUR ALGEBRIQUE DE LA COMPOSANTE
  27. * IPGEOM (E) POINTEUR SUR L'OBJET MAILLAGE
  28. * NCOMP (E) DESIGNE LE NOMBRE DE COMPOSANTES
  29. * IPCHPO (S) POINTEUR SUR LE CHPOINT RESULTAT
  30. *
  31. CHARACTER*4 MOCOMP(5)
  32. DATA MOCOMP/'COM1','COM2','COM3','COM4','COM5'/
  33. *
  34. * AUTEUR, DATE DE CREATION:
  35. * -------------------------
  36. *
  37. * DENIS ROBERT,LE 28/01/88.
  38. *
  39. * LANGAGE:
  40. * --------
  41. *
  42. * FORTRAN77
  43. *
  44. ************************************************************************
  45. *
  46. IF(NCOMP.GT.5)THEN
  47. CALL ERREUR(5)
  48. RETURN
  49. ENDIF
  50. IF(NCOMP.EQ.1)THEN
  51. CALL ECRREE(VALFLU)
  52. CALL ECRCHA('SCAL')
  53. CALL ECRENT(1)
  54. CALL ECROBJ('MAILLAGE',IPGEOM)
  55. CALL MANUCH
  56. ELSE
  57. DO 10 ICOMP=1,NCOMP
  58. CALL ECRREE(VALFLU)
  59. CALL ECRCHA(MOCOMP(ICOMP))
  60. 10 CONTINUE
  61. CALL ECRENT(NCOMP)
  62. CALL ECROBJ('MAILLAGE',IPGEOM)
  63. CALL MANUCH
  64. ENDIF
  65. *
  66. CALL LIROBJ('CHPOINT',IPCHPO,1,IRET)
  67. IF (IERR.NE.0) RETURN
  68. *
  69. END
  70.  
  71.  

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