Télécharger la plaquette Cast3M


fr en

Télécharger vrfmod.eso

Retour à la liste

Numérotation des lignes : 

vrfmod

  1. C VRFMOD    SOURCE    CHAT      05/01/13    04:10:03     5004
  2.       SUBROUTINE VRFMOD (IPA,IPB,IPX,VALPP)
  3. ************************************************************************
  4. *
  5. *                             V R F M O D
  6. *                             -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *     PERMETTRE DE VERIFIER QU'UN MODE PROPRE (V,X) SOLUTION DE
  12. *        |A|.(X) = V.|B|.(X)
  13. *     A ETE CALCULE DE FACON EXACTE, EN FAISANT LES IMPRESSIONS DE
  14. *     |A|.(X) , V.|B|.(X)  ET  |A|.(X)-V.|B|.(X)
  15. *
  16. * MODE D'APPEL:
  17. * -------------
  18. *
  19. *     CALL VRFMOD (IPA,IPB,IPX,VALPP)
  20. *
  21. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE
  22. * -----------
  23. *
  24. *     IPA     ENTIER    (E)  POINTEUR SUR LA 'RIGIDITE' "A".
  25. *     IPB     ENTIER    (E)  POINTEUR SUR LA 'RIGIDITE' "B".
  26. *     IPX     ENTIER    (E)  POINTEUR SUR LE 'CHPOINT' "X".
  27. *     VALPP   REEL DP   (E)  VALEUR PROPRE "V".
  28. *
  29. * LEXIQUE: (ORDRE ALPHABETIQUE)
  30. * --------
  31. *
  32. *     IPAX    ENTIER    POINTEUR SUR LE 'CHPOINT' |A|.(X)
  33. *     IPBX    ENTIER    POINTEUR SUR LE 'CHPOINT' |B|.(X)
  34. *     IPVBX   ENTIER    POINTEUR SUR LE 'CHPOINT' V.|B|.(X)
  35. *     IPZERO  ENTIER    POINTEUR SUR LE 'CHPOINT' |A|.(X) - V.|B|.(X)
  36. *
  37. * SOUS-PROGRAMMES APPELES:
  38. * ------------------------
  39. *
  40. *     ADCHPO, DTCHPO, ECCHPO, MUCHPO, MUCPRI.
  41. *
  42. * AUTEUR, DATE DE CREATION:
  43. * -------------------------
  44. *
  45. *     PASCAL MANIGOT     25 OCTOBRE 1984
  46. *
  47. * LANGAGE:
  48. * --------
  49. *
  50. *     FORTRAN77
  51. *
  52. ************************************************************************
  53. *
  54.       IMPLICIT INTEGER(I-N)
  55.  
  56. -INC PPARAM
  57. -INC CCOPTIO
  58. *
  59.       REAL*8 VALPP
  60.       REAL*8 V
  61. *
  62. *     PRODUIT |A|.(X)
  63.       CALL MUCPRI (IPX,IPA,  IPAX)
  64.       IF (IERR .NE. 0) RETURN
  65. *
  66. *     IMPRESSION DE |A|.(X)
  67.       WRITE (IOIMP,2010) '|A|.(X)            '
  68.  2010 FORMAT ('1 IMPRESSION DE ',A20,/)
  69.       CALL ECCHPO (IPAX,0)
  70. *
  71. *     PRODUIT |B|.(X)
  72.       CALL MUCPRI (IPX,IPB,  IPBX)
  73.       IF (IERR .NE. 0) RETURN
  74. *
  75. *     PRODUIT V.|B|.(X)
  76.       MULT = 1
  77.       V = VALPP
  78.       CALL MUCHPO (IPBX,V,  IPVBX,MULT)
  79.       IF (IERR .NE. 0) RETURN
  80. *
  81. *     IMPRESSION DE V.|B|.(X)
  82.       WRITE (IOIMP,2010) 'V.|B|.(X)          '
  83.       CALL ECCHPO (IPVBX,0)
  84. *
  85. *     DIFFERENCE  |A|.(X) - V.|B|.(X)
  86.       MOINS = -1
  87.       CALL ADCHPO (IPAX,IPVBX,  IPZERO,1.D0,-1.D0)
  88.       IF (IERR .NE. 0) RETURN
  89. *
  90. *     IMPRESSION DE |A|.(X) - V.|B|.(X)
  91.       WRITE (IOIMP,2010) '|A|.(X) - V.|B|.(X)'
  92.       CALL ECCHPO (IPZERO,0)
  93. *
  94. *     DESTRUCTION DES OBJETS DE TRAVAIL:
  95.       CALL DTCHPO (IPZERO)
  96.       CALL DTCHPO (IPAX)
  97.       CALL DTCHPO (IPBX)
  98.       CALL DTCHPO (IPVBX)
  99. *
  100.       END
  101.  
  102.  
  103.  

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