Télécharger valche.eso

Retour à la liste

Numérotation des lignes :

  1. C VALCHE SOURCE AM 16/04/18 21:15:14 8911
  2.  
  3. SUBROUTINE VALCHE (IPTVAL,NCOMP,IPMINT,IPPORE,IPNOMI,MELE)
  4.  
  5. *_______________________________________________________________________
  6. *
  7. * PASSAGE DES VALEURS D'UN MCHAML AUX NOEUDS SUR UN AUTRE SUPPORT
  8. *
  9. * IPTVAL POINTEUR SUR UN SEGMENT MPTVAL CONTENANT LES MELVALS A
  10. * RECALCULER
  11. *
  12. * NCOMP NOMBRE DE COMPOSANTES QUE L'ON SOUHAITE RECALCULER
  13. *
  14. * IPMINT POINTEUR SUR LE SEGMENT D'INTEGRATION DU SUPPORT OU L'ON
  15. * SOUHAITE PROJETER LES MELVAL
  16. *
  17. * IPPORE est =0 s'il faut prendre toutes les fonctions de formes
  18. * sinon précise lesquelles premieres il faut prendre
  19. *
  20. * REMARQUE 1 : LES MELVAL RECALCULES SONT REMIS DANS LE SEGMENT
  21. * MPTVAL (ON DESACTIVE ICI LES MELVALS ORIGINELS).
  22. * IL NE FAUT PAS OUBLIER DE SUPRIMER LES MELVALS
  23. * RECALCULES APRES UTILISATION.
  24. *
  25. * REMARQUE 2 : LE POINTEUR IPMINT DOIT ETRE ACTIF EN ENTREE DE
  26. * VALCHE ET SON ETAT N'EST PAS MODIFIE EN SORTIE.
  27. *
  28. * CAMPENON JM LE 02/91
  29. *
  30. *_______________________________________________________________________
  31.  
  32. IMPLICIT INTEGER(I-N)
  33.  
  34. -INC CCOPTIO
  35.  
  36. SEGMENT MPTVAL
  37. INTEGER IPOS(NS) ,NSOF(NS)
  38. INTEGER IVAL(NCOSOU)
  39. CHARACTER*16 TYVAL(NCOSOU)
  40. ENDSEGMENT
  41. *
  42. SEGMENT NOMID
  43. CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  44. ENDSEGMENT
  45. *
  46. CHARACTER*8 LENAME
  47. *
  48. NOMID=IPNOMI
  49. SEGACT NOMID
  50. NBROBL=LESOBL(/2)
  51. *
  52. ICO=0
  53. MPTVAL=IPTVAL
  54. DO 1 ICOMP=1,NCOMP
  55. ICO=ICO+1
  56. IPMELV=IVAL(ICOMP)
  57. IF (IPMELV.NE.0) THEN
  58. IF(ICO.LE.NBROBL) THEN
  59. LENAME=LESOBL(ICO)
  60. ELSE
  61. LENAME=LESFAC(ICO-NBROBL)
  62. ENDIF
  63. CALL CHAME3(IPMELV,IPMINT,IPRES,IPPORE,LENAME,MELE)
  64. IF(IERR.NE.0)RETURN
  65. IVAL(ICOMP)=IPRES
  66. ENDIF
  67. 1 CONTINUE
  68.  
  69. RETURN
  70. END
  71.  
  72.  
  73.  
  74.  
  75.  

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