Télécharger la plaquette Cast3M


fr en

Télécharger valche.eso

Retour à la liste

Numérotation des lignes : 

valche

  1. C VALCHE    SOURCE    OF166741  25/02/21    21:19:04     12166          
  2.  
  3. *_______________________________________________________________________
  4. *
  5. *   PASSAGE DES VALEURS D'UN MCHAML AUX NOEUDS SUR UN AUTRE SUPPORT
  6. *
  7. *   IPTVAL   POINTEUR SUR UN SEGMENT MPTVAL CONTENANT LES MELVALS A
  8. *            RECALCULER
  9. *
  10. *   NCOMP    NOMBRE DE COMPOSANTES QUE L'ON SOUHAITE RECALCULER
  11. *
  12. *   IPMINT  POINTEUR SUR LE SEGMENT D'INTEGRATION DU SUPPORT OU L'ON
  13. *           SOUHAITE PROJETER LES MELVAL
  14. *
  15. * IPPORE est =0 s'il faut prendre toutes les fonctions de forme
  16. *         sinon precise lesquelles premieres il faut prendre
  17. *
  18. *   REMARQUE 1 :  LES MELVAL RECALCULES SONT REMIS DANS LE SEGMENT
  19. *                 MPTVAL (ON DESACTIVE ICI LES MELVALS ORIGINELS).
  20. *                 IL NE FAUT PAS OUBLIER DE SUPRIMER LES MELVALS
  21. *                 RECALCULES APRES UTILISATION.
  22. *   REMARQUE 3 :  LE POINTEUR IPMINT EST ACTIF EN ENTREE/SORTIE ET
  23. *                 UTILISE UNIQUEMENT EN LECTURE
  24. *   REMARQUE 3 :  LE POINTEUR IPNOMI EST ACTIF EN ENTREE/SORTIE ET
  25. *                 UTILISE UNIQUEMENT EN LECTURE
  26. *_______________________________________________________________________
  27.  
  28.       SUBROUTINE VALCHE (IPTVAL,NCOMP,IPMINT,IPPORE,IPNOMI,MELE)
  29.  
  30.       IMPLICIT INTEGER(I-N)
  31.       IMPLICIT REAL*8 (A-H,O-Z)
  32.  
  33. -INC PPARAM
  34. -INC CCOPTIO
  35.  
  36. -INC TMPTVAL
  37.  
  38.       SEGMENT NOMID
  39.         CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  40.       ENDSEGMENT
  41.  
  42.       CHARACTER*(LOCOMP) LENAME
  43.  
  44.       MPTVAL = IPTVAL
  45.  
  46.       nomid = IPNOMI
  47.       NBROBL = nomid.LESOBL(/2)
  48.  
  49.       DO ICO = 1, NCOMP
  50.          IPMELV = IVAL(ICO)
  51.          IF (IPMELV.NE.0) THEN
  52.             IF (ICO.LE.NBROBL) THEN
  53.                LENAME = nomid.LESOBL(ICO)
  54.             ELSE
  55.                LENAME = nomid.LESFAC(ICO-NBROBL)
  56.             ENDIF
  57.             CALL CHAME3(IPMELV,IPMINT,IPRES,IPPORE,LENAME,MELE)
  58.             IF (IERR.NE.0) RETURN
  59.             IVAL(ICO) = IPRES
  60.          ENDIF
  61.       ENDDO
  62.  
  63.       RETURN
  64.       END
  65.  
  66.  

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