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  24/10/04    21:15:02     12023          
  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.       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*(LOCOMP) LENAME
  47.  
  48.       MPTVAL = IPTVAL
  49.  
  50.       nomid = IPNOMI
  51.       NBROBL = nomid.LESOBL(/2)
  52.  
  53.       DO ICO = 1, NCOMP
  54.          IPMELV = IVAL(ICO)
  55.          IF (IPMELV.NE.0) THEN
  56.             IF (ICO.LE.NBROBL) THEN
  57.                LENAME = nomid.LESOBL(ICO)
  58.             ELSE
  59.                LENAME = nomid.LESFAC(ICO-NBROBL)
  60.             ENDIF
  61.             CALL CHAME3(IPMELV,IPMINT,IPRES,IPPORE,LENAME,MELE)
  62.             IF (IERR.NE.0) RETURN
  63.             IVAL(ICO) = IPRES
  64.          ENDIF
  65.       ENDDO
  66.  
  67.       RETURN
  68.       END
  69.  
  70.  
  71.  

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