Télécharger nbvalp.eso

Retour à la liste

Numérotation des lignes :

  1. C NBVALP SOURCE CHAT 05/01/13 01:56:19 5004
  2. SUBROUTINE NBVALP (IPA,IPB,V0, NOMBRE)
  3. ************************************************************************
  4. *
  5. * N B V A L P
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * DONNER, A UNE CONSTANTE PRES (FONCTION DE LA 'RIGIDITE' |A|), LE
  12. * NOMBRE DE VALEURS PROPRES INFERIEURES A V0 DANS LE PROBLEME:
  13. * |A|.(X) = V.|B|.(X)
  14. * LE COUPLE (V,(X)) ETANT UN MODE PROPRE A CALCULER.
  15. *
  16. * MODE D'APPEL:
  17. * -------------
  18. *
  19. * CALL NBVALP (IPA,IPB,V0, NOMBRE)
  20. *
  21. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  22. * -----------
  23. *
  24. * V0 REEL DP (E) DEFINI AU PARAGRAPHE "FONCTION".
  25. * IPA ENTIER (E) POINTEUR DE LA RIGIDITE |A|.
  26. * IPB ENTIER (E) POINTEUR DE LA RIGIDITE |B|.
  27. * NOMBRE ENTIER (S) NOMBRE DE VALEURS PROPRES INFERIEURES A V0.
  28. *
  29. * SOUS-PROGRAMMES APPELES:
  30. * ------------------------
  31. *
  32. * DECALE, DTRIGI, DIAGN1
  33. *
  34. * AUTEUR, DATE DE CREATION:
  35. * -------------------------
  36. *
  37. * PASCAL MANIGOT 16 NOVEMBRE 1984
  38. *
  39. * LANGAGE:
  40. * --------
  41. *
  42. * FORTRAN77
  43. *
  44. ************************************************************************
  45. *
  46. IMPLICIT INTEGER(I-N)
  47. -INC CCOPTIO
  48. *
  49. REAL*8 V0,V0BIS
  50. *
  51. V0BIS = V0
  52. CALL DECALE (IPA,IPB,V0BIS, IPAVB)
  53. IF (IERR .NE. 0) RETURN
  54. *
  55. CALL DIAGN1 (IPAVB,NOMBRE)
  56. IF (IERR .NE. 0) RETURN
  57. *
  58. CALL DTRIGI (IPAVB)
  59. *
  60. END
  61.  
  62.  

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