Télécharger la plaquette Cast3M


fr en

Télécharger fusmtk.eso

Retour à la liste

Numérotation des lignes : 

fusmtk

  1. C FUSMTK    SOURCE    PV        20/09/26    21:16:56     10724          
  2.       SUBROUTINE FUSMTK(IP1,IP2,MATRIK)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8 (A-H,O-Z)
  6.       POINTEUR IP1.MATRIK,IP2.MATRIK
  7.       POINTEUR IMATR1.MATRIK
  8.       POINTEUR IMATR2.MATRIK
  9.       SEGACT IP1
  10.       SEGACT IP2
  11.       N1=IP1.IRIGEL(/2)
  12.       N2=IP2.IRIGEL(/2)
  13.       NMATRI=N1+N2
  14.       NRIGE=7
  15.       NKID =9
  16.       NKMT =7
  17.       SEGINI MATRIK
  18. * Copie des IRIGEL de l'un dans l'autre
  19.       DO 1 I=1,N1
  20.          CALL RSETI(IRIGEL(1,I),IP1.IRIGEL(1,I),7)
  21.  1    CONTINUE
  22.       DO 2 I=1,N2
  23.          CALL RSETI(IRIGEL(1,N1+I),IP2.IRIGEL(1,I),7)
  24.  2    CONTINUE
  25. * On effectue une copie des segments IMATRI car ils pointent sur
  26. * d'autres objets élémentaires (les valeurs des matrices élémentaires)
  27.       DO 3 I=1,N1
  28.          IMATR1=IP1.IRIGEL(4,I)
  29.          SEGINI,IMATR2=IMATR1
  30.          SEGDES IMATR2
  31.          IRIGEL(4,I)=IMATR2
  32.  3    CONTINUE
  33.       DO 4 I=1,N2
  34.          IMATR1=IP2.IRIGEL(4,I)
  35.          SEGINI,IMATR2=IMATR1
  36.          SEGDES IMATR2
  37.          IRIGEL(4,N1+I)=IMATR2
  38.  4    CONTINUE
  39.       SEGDES MATRIK
  40.       SEGDES IP2
  41.       SEGDES IP1
  42.       RETURN
  43.       END
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  

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