Télécharger valmel.eso

Retour à la liste

Numérotation des lignes :

  1. C VALMEL SOURCE FANDEUR 10/08/31 21:19:58 6734
  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. -INC CCOPTIO
  24. -INC SMCHAML
  25. -INC SMINTE
  26. *
  27. MELVAL=IPMELV
  28. N1PTEL=VELCHE(/1)
  29. N2PTEL=IELCHE(/1)
  30. IF(N2PTEL.NE.0)THEN
  31. IF(N2PTEL.EQ.1)THEN
  32. SEGINI,MELVA1=MELVAL
  33. IPRES=MELVA1
  34. RETURN
  35. ELSE
  36. MOTERR(1:8)=' '
  37. CALL ERREUR(124)
  38. IPRES=IPMELV
  39. RETURN
  40. ENDIF
  41. ELSE
  42. *
  43. IF (N1PTEL.EQ.1) THEN
  44. SEGINI,MELVA1=MELVAL
  45. IPRES=MELVA1
  46. RETURN
  47. ELSE
  48. *
  49. * ON RECUPERE LE NOMBRE DE POINT SUPPORT
  50. *
  51. MINTE=IPMINT
  52. C* SEGACT MINTE <- ACTIF EN ENTREE
  53. NBPGAU=SHPTOT(/3)
  54. NBNO =SHPTOT(/2)
  55. *
  56. N1PTEL=NBPGAU
  57. N1EL=VELCHE(/2)
  58. N2PTEL=0
  59. N2EL =0
  60. SEGINI MELVA1
  61. IPRES=MELVA1
  62. DO 1 IB=1,N1EL
  63. DO 2 IGAU=1,NBPGAU
  64. DO 3 INBNO=1,NBNO
  65. IGMN=MIN(VELCHE(/1),INBNO)
  66. MELVA1.VELCHE(IGAU,IB)=MELVA1.VELCHE(IGAU,IB)+
  67. & VELCHE(IGMN,IB)*SHPTOT(1,INBNO,IGAU)
  68. 3 CONTINUE
  69. 2 CONTINUE
  70. 1 CONTINUE
  71. ENDIF
  72. ENDIF
  73. *
  74. SEGDES MELVAL
  75. C* SEGDES MINTE <- ACTIF EN SORTIE (NON MODIFIE)
  76.  
  77. RETURN
  78. END
  79.  
  80.  
  81.  

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