Télécharger la plaquette Cast3M


fr en

Télécharger valmel.eso

Retour à la liste

Numérotation des lignes : 

valmel

  1. C VALMEL    SOURCE    PV090527  23/04/06    21:15:04     11644          
  2.       SUBROUTINE VALMEL (IPMELV,IPMINT,IPRES)
  3. *______________________________________________________________________
  4. *
  5. *   CALCUL DES MELVALS AU SUPPORT DE IPMINT
  6. *
  7. *   IPMELV  POINTEUR SUR UN SEGMENT MELVAL A RECALCULER
  8. *           (SUPPOSE ACTIF)
  9. *
  10. *   IPMINT  POINTEUR SUR LE SEGMENT D'INTEGRATION DU SUPPORT OU L'ON
  11. *           SOUHAITE PROJETER LE MELVAL
  12. *           (SUPPOSE ACTIF EN ENTREE ET EN SORTIE SANS CHANGMENT)
  13. *
  14. *   IPRES   POINTEUR SUR LE MELVAL RESULTAT
  15. *
  16. *   CAMPENON JM LE 02/91
  17. *
  18. *_____________________________________________________________________
  19. *
  20.       IMPLICIT INTEGER(I-N)
  21.       IMPLICIT REAL*8(A-H,O-Z)
  22.  
  23.  
  24. -INC PPARAM
  25. -INC CCOPTIO
  26. -INC SMCHAML
  27. -INC SMINTE
  28. *
  29.       MELVAL=IPMELV
  30.       N1PTEL=VELCHE(/1)
  31.       N2PTEL=IELCHE(/1)
  32.       IF(N2PTEL.NE.0)THEN
  33.         IF(N2PTEL.EQ.1)THEN
  34.           SEGINI,MELVA1=MELVAL
  35.           IPRES=MELVA1
  36.           RETURN
  37.         ELSE
  38.           MOTERR(1:8)=' '
  39.           CALL ERREUR(124)
  40.           IPRES=IPMELV
  41.           RETURN
  42.         ENDIF
  43.       ELSE
  44. *
  45.         IF (N1PTEL.EQ.1) THEN
  46.           SEGINI,MELVA1=MELVAL
  47.           IPRES=MELVA1
  48.           RETURN
  49.         ELSE
  50. *
  51. *     ON RECUPERE LE NOMBRE DE POINT SUPPORT
  52. *
  53.          MINTE=IPMINT
  54. C*       SEGACT MINTE                  <- ACTIF EN ENTREE
  55.          NBPGAU=SHPTOT(/3)
  56.          NBNO  =SHPTOT(/2)
  57. ***         if (velche(/1).gt.1) nbno=min(nbno,velche(/1))
  58.          if (velche(/1).gt.1.and.velche(/1).ne.nbno) then
  59.           interr(1)=nbno
  60.           interr(2)=velche(/1)
  61.           call erreur(1139)
  62.          endif
  63. *
  64.          N1PTEL=NBPGAU
  65.          N1EL=VELCHE(/2)
  66.          N2PTEL=0
  67.          N2EL  =0
  68.          SEGINI MELVA1
  69.          IPRES=MELVA1
  70.          DO 1 IB=1,N1EL
  71.             DO 2 IGAU=1,NBPGAU
  72.                DO 3 INBNO=1,NBNO
  73.                   IGMN=MIN(VELCHE(/1),INBNO)
  74.                   MELVA1.VELCHE(IGAU,IB)=MELVA1.VELCHE(IGAU,IB)+
  75.      &                      VELCHE(IGMN,IB)*SHPTOT(1,INBNO,IGAU)
  76.  3             CONTINUE
  77.  2          CONTINUE
  78.  1       CONTINUE
  79.         ENDIF
  80.       ENDIF
  81. *
  82.       SEGDES MELVAL
  83. C*    SEGDES MINTE                  <- ACTIF EN SORTIE (NON MODIFIE)
  84.  
  85.       RETURN
  86.       END
  87.  
  88.  
  89.  
  90.  

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