Télécharger la plaquette Cast3M


fr en

Télécharger decale.eso

Retour à la liste

Numérotation des lignes : 

decale

  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.  
  37. -INC PPARAM
  38. -INC CCOPTIO
  39. *
  40.       REAL*8 V,VMOINS
  41. *
  42. *     PRODUIT  -V.|B|
  43.       VMOINS = -1.D0 * V
  44.       MULTPL = 1
  45.       CALL MUFLRI (IPB,VMOINS,  IPVB,MULTPL)
  46.       IF (IERR .NE. 0) RETURN
  47. *
  48. *     DECALAGE DE LA MATRICE |A|
  49.       CALL FUSRIG (IPA,IPVB,  IPAVB)
  50.       IF (IERR .NE. 0) RETURN
  51.       CALL DTRIGI (IPVB)
  52. *
  53.       END
  54.  
  55.  

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