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