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    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.  
  35. -INC PPARAM
  36. -INC CCOPTIO
  37.  
  38.       SEGMENT MPTVAL
  39.         INTEGER IPOS(NS)    ,NSOF(NS)
  40.         INTEGER      IVAL(NCOSOU)
  41.         CHARACTER*16 TYVAL(NCOSOU)
  42.       ENDSEGMENT
  43. *
  44.       SEGMENT NOMID
  45.         CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  46.       ENDSEGMENT
  47. *
  48.       CHARACTER*8 LENAME
  49. *
  50.       NOMID=IPNOMI
  51.       SEGACT NOMID
  52.       NBROBL=LESOBL(/2)
  53. *
  54.       ICO=0
  55.       MPTVAL=IPTVAL
  56.       DO 1 ICOMP=1,NCOMP
  57.          ICO=ICO+1
  58.          IPMELV=IVAL(ICOMP)
  59.          IF (IPMELV.NE.0) THEN
  60.             IF(ICO.LE.NBROBL) THEN
  61.                   LENAME=LESOBL(ICO)
  62.             ELSE
  63.                   LENAME=LESFAC(ICO-NBROBL)
  64.             ENDIF
  65.             CALL CHAME3(IPMELV,IPMINT,IPRES,IPPORE,LENAME,MELE)
  66.             IF(IERR.NE.0)RETURN
  67.             IVAL(ICOMP)=IPRES
  68.          ENDIF
  69.  1    CONTINUE
  70.  
  71.       RETURN
  72.       END
  73.  
  74.  
  75.  
  76.  
  77.  

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