Télécharger prfacf.eso

Retour à la liste

Numérotation des lignes :

  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