Télécharger la plaquette Cast3M


fr en

Télécharger nbvalp.eso

Retour à la liste

Numérotation des lignes : 

nbvalp

  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.  
  48. -INC PPARAM
  49. -INC CCOPTIO
  50. *
  51.       REAL*8 V0,V0BIS
  52. *
  53.       V0BIS = V0
  54.       CALL DECALE (IPA,IPB,V0BIS,  IPAVB)
  55.       IF (IERR .NE. 0) RETURN
  56. *
  57.       CALL DIAGN1 (IPAVB,NOMBRE)
  58.       IF (IERR .NE. 0) RETURN
  59. *
  60.       CALL DTRIGI (IPAVB)
  61. *
  62.       END
  63.  
  64.  

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