Télécharger la plaquette Cast3M


fr en

Télécharger ecminc.eso

Retour à la liste

Numérotation des lignes : 

ecminc

  1. C ECMINC    SOURCE    PV        20/09/26    21:16:34     10724          
  2.       SUBROUTINE ECMINC(MINC,NIVIMP)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8 (A-H,O-Z)
  5. C***********************************************************************
  6. C NOM         : ECMINC
  7. C DESCRIPTION : Impression d'un segment de type MINC.
  8. C               Ce segment contient des informations sur le
  9. C               rangement des inconnues dans une "certaine"
  10. C               numérotation (cf. segment IDMAT) vis à vis
  11. C               d'un "certain" support géométrique.
  12. C               Tout seul, il ne signifie donc pas grand-chose.
  13. C               cf. include SMMATRIK
  14. C
  15. C LANGAGE     : ESOPE
  16. C AUTEUR      : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/TTMF)
  17. C               mél : gounand@semt2.smts.cea.fr
  18. C***********************************************************************
  19. C APPELES : -
  20. C***********************************************************************
  21. C ENTREES            : MINC, NIVIMP
  22. C ENTREES/SORTIES    : -
  23. C SORTIES            : -
  24. C CODE RETOUR (IRET) : -
  25. C    MINC   : segment de type MINC (include SMMATRIK)
  26. C    NIVIMP : niveau d'impression. Suivant sa valeur, on obtient :
  27. C  Convention (probablement non totalement respectée) :
  28. C  ----------   0 : presque rien (numéro de pointeur)
  29. C               1 : affichage du chapeau MINC
  30. C               2 : affichage des données concernant les objets
  31. C                   pointés par MINC (s'il y en a)
  32. C               3 : affichage du contenu des objets vectoriels
  33. C               4 : affichage du contenu des objets matriciels
  34. C On ne change pas l'état (actif ou inactif) du segment MINC.
  35. C***********************************************************************
  36. C VERSION    : v1, 01/04/98, version initiale
  37. C HISTORIQUE : v1, 01/04/98, création
  38. C HISTORIQUE : 29/10/98, modif. l'état du segment reste inchangé
  39. C                        en sortie
  40. C HISTORIQUE :
  41. C HISTORIQUE :
  42. C***********************************************************************
  43. C Prière de PRENDRE LE TEMPS de compléter les commentaires
  44. C en cas de modification de ce sous-programme afin de faciliter
  45. C la maintenance !
  46. C***********************************************************************
  47.  
  48. -INC PPARAM
  49. -INC CCOPTIO
  51. * Variable d'état du segment MINC
  52.       INTEGER MINETA
  53. *
  54. * Executable statements
  55. *
  56.       IF (MINC.EQ.0) THEN
  57.          WRITE(IOIMP,*) 'Nil pointer transmitted to ecminc'
  58.          GOTO 9999
  59.       ENDIF
  60.       CALL OOOETA(MINC,MINETA,IMOD)
  61.       IF (MINETA.NE.1) SEGACT MINC
  62.       WRITE(IOIMP,2001) 'Segment MINC de pointeur ',MINC
  63. *
  64.       NBI=LISINC(/2)
  65.       NPT=NPOS(/1)-1
  66.       WRITE(IOIMP,3001) 'NBI =',NBI,'Nb de composantes total'
  67.       WRITE(IOIMP,3001) 'NPT =',NPT,'Nb de noeuds'
  68.       WRITE(IOIMP,1999) 'Liste des inconnues'
  69.       WRITE(IOIMP,3002) 'LISINC(NBI)=',(LISINC(N),N=1,NBI)
  70.       WRITE(IOIMP,1999) 'Position de la 1ere inconnue pour un noeud'
  71.       WRITE(IOIMP,1999) 'NPOS(NPT+1)'
  72.       IF (NIVIMP.GT.2) THEN
  73.          WRITE(IOIMP,3003) (NPOS(N),N=1,NPT+1)
  74.       ENDIF
  75.       WRITE(IOIMP,1999) 'Tableau MPOS(NPT,NBI+1)'
  76.       WRITE(IOIMP,1998) 'MPOS(I,NBI+1)=nb d''inconnues au noeud I'
  77.       WRITE(IOIMP,1998) 'MPOS(I,1..NBI)=rang de l''inconnue au noeud I'
  78.       WRITE(IOIMP,1997) '(0 si non défini)'
  79.       IF (NIVIMP.GT.2) THEN
  80.          DO 1 I=1,NPT
  81.             WRITE(IOIMP,3004) I,MPOS(I,NBI+1),(MPOS(I,J),J=1,NBI)
  82.  1       CONTINUE
  83.       ENDIF
  84.       IF (MINETA.NE.1) SEGDES MINC
  85. *
  86. * Normal termination
  87. *
  88.       RETURN
  89. *
  90. * Format handling
  91. *
  92.  1997 FORMAT (4X,A)
  93.  1998 FORMAT (2X,A)
  94.  1999 FORMAT (A)
  95.  2001 FORMAT (A,1X,I6)
  96.  3001 FORMAT (A,I6,2X,A)
  97.  3002 FORMAT (2X,A,100(1X,A8))
  98.  3003 FORMAT (10000(1X,I2))
  99.  3004 FORMAT(4X,'Point',1X,I6,2X,'nb. inc.',1X,I2,1X,':',100(1X
  100.      $     ,I2),')')
  101. *
  102. * Error handling
  103. *
  104.  9999 CONTINUE
  105.       WRITE(IOIMP,*) 'An error was detected in subroutine ecminc'
  106.       RETURN
  107. *
  108. * End of subroutine ECMINC
  109. *
  110.       END
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  

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