Télécharger la plaquette Cast3M


fr en

Télécharger prfacf.eso

Retour à la liste

Numérotation des lignes : 

prfacf

  1. C PRFACF    SOURCE    CHAT      05/01/13    02:26:16     5004
  2.         SUBROUTINE PRFACF(MATR)
  3. C
  4. C       IMPRIME LES FACTEURS DE FORME     (cf. operateur FFOR)
  5. C           ou  UNE MATRICE DE RAYONNEMENT(cf. operateur RAYE)
  6. C
  7. C
  8. C     FACTEURS DE FORME
  9. C           NNBEL1 = NOMBRE DE LIGNES + 1
  10. C           NBEL2  = NOMBRE DE COLONNES
  11. C     LFACT(NNBEL1) POINTE SUR LE TABLEAU DES SURFACES
  12. C
  13.       IMPLICIT INTEGER(I-N)
  14.         SEGMENT IFACFO
  15.          INTEGER   LFACT(NNBEL1)
  16.         ENDSEGMENT
  17.         SEGMENT LFAC
  18.          REAL*8    FACT(NBEL2)
  19.         ENDSEGMENT
  20.         POINTEUR PSUR.LFAC, PLIG.LFAC
  21.         POINTEUR MATR.IFACFO
  22.  
  23.         SEGACT MATR
  24.         NBELI = MATR.LFACT(/1)
  25.         WRITE (6,*) ' '
  26.         WRITE (6,*) 'FACTEURS DE FORMES ou MATRICE DE RAYONNEMENT '
  27.         WRITE (6,*) ' '
  28.         WRITE (6,*) '     nombre d éléments : ',(NBELI-1)
  29.         DO I=1,(NBELI-1)
  30.  
  31.                 WRITE (6,*) 'Elément  numéro ',I
  32.                 PLIG = MATR.LFACT(I)
  33.                 SEGACT PLIG
  34.                 N2=PLIG.FACT(/1)
  35.                 CALL UTPRIM(PLIG.FACT,N2)
  36.                 SEGDES PLIG
  37.  
  38.         ENDDO
  39.  
  40.         WRITE (6,*) ' '
  41.         PSUR = MATR.LFACT(NBELI)
  42.         SEGACT PSUR
  43.         WRITE (6,*) 'SURFACE DES ELEMENTS'
  44.         N2=PSUR.FACT(/1)
  45.         CALL UTPRIM(PSUR.FACT,N2)
  46.         WRITE (6,*) ' '
  47.  
  48.         SEGDES PSUR
  49.         SEGDES MATR
  50.         RETURN
  51.         END
  52.  
  53.  

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