Télécharger decale.eso

Retour à la liste

Numérotation des lignes :

  1. C DECALE SOURCE CHAT 05/01/12 22:38:45 5004
  2. SUBROUTINE DECALE (IPA,IPB,V,IPAVB)
  3. ************************************************************************
  4. *
  5. * D E C A L E
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * EFFECTUER UN DECALAGE ("SHIFTING") SUR UNE 'RIGIDITE' |A|, A
  12. * L'AIDE D'UN 'FLOTTANT' V ET D'UNE 'RIGIDITE' |B| :
  13. * |A| --> |A|-V.|B|
  14. *
  15. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  16. * -----------
  17. *
  18. * IPA ENTIER (E) POINTEUR DE LA 'RIGIDITE' |A|.
  19. * IPB ENTIER (E) POINTEUR DE LA 'RIGIDITE' |B|.
  20. * V REEL DP (E) DEFINI AU PARAGRAPHE "FONCTION".
  21. * IPAVB ENTIER (S) POINTEUR DE LA 'RIGIDITE' |A|-V.|B|
  22. *
  23. * AUTEUR, DATE DE CREATION:
  24. * -------------------------
  25. *
  26. * PASCAL MANIGOT 16 NOVEMBRE 1984
  27. *
  28. * LANGAGE:
  29. * --------
  30. *
  31. * FORTRAN77
  32. *
  33. ************************************************************************
  34. *
  35. IMPLICIT INTEGER(I-N)
  36. -INC CCOPTIO
  37. *
  38. REAL*8 V,VMOINS
  39. *
  40. * PRODUIT -V.|B|
  41. VMOINS = -1.D0 * V
  42. MULTPL = 1
  43. CALL MUFLRI (IPB,VMOINS, IPVB,MULTPL)
  44. IF (IERR .NE. 0) RETURN
  45. *
  46. * DECALAGE DE LA MATRICE |A|
  47. CALL FUSRIG (IPA,IPVB, IPAVB)
  48. IF (IERR .NE. 0) RETURN
  49. CALL DTRIGI (IPVB)
  50. *
  51. END
  52.  
  53.  

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