Esope source files

   1 : C SMI2PG    SOURCE    GOUNAND   05/12/21    21:36:18     5281           
   2 :       SUBROUTINE SMI2PG(IELE,NBG,
   3 :      $     PGCOUR,IMPR,IRET)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 :       IMPLICIT INTEGER (I-N)
   6 : C***********************************************************************
   7 : C NOM         : SMI2PG
   8 : C DESCRIPTION : Va chercher les points d'intégration dans donred.eso
   9 : C
  10 : C
  11 : C
  12 : C LANGAGE     : ESOPE
  13 : C AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  14 : C               mél : gounand@semt2.smts.cea.fr
  15 : C***********************************************************************
  16 : C APPELES          : 
  17 : C APPELES (E/S)    : 
  18 : C APPELES (BLAS)   :
  19 : C APPELES (CALCUL) :
  20 : C APPELE PAR       :
  21 : C***********************************************************************
  22 : C SYNTAXE GIBIANE    :
  23 : C ENTREES            : IELE, NBG
  24 : C ENTREES/SORTIES    : PGCOUR
  25 : C SORTIES            :
  26 : C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  27 : C***********************************************************************
  28 : C VERSION    : v1, 21/10/2005, version initiale
  29 : C HISTORIQUE : v1, 21/10/2005, création
  30 : C HISTORIQUE :
  31 : C HISTORIQUE :
  32 : C***********************************************************************
  33 : C Prière de PRENDRE LE TEMPS de compléter les commentaires
  34 : C en cas de modification de ce sous-programme afin de faciliter
  35 : C la maintenance !
  36 : C***********************************************************************
  37 : -INC CCOPTIO
  38 : CBEGININCLUDE SPOGAU
  39 :       SEGMENT POGAU
  40 :       CHARACTER*(LNNPG)  NOMPG
  41 :       CHARACTER*(LNTPG)  TYPMPG
  42 :       CHARACTER*(LNFPG)  FORLPG
  43 :       INTEGER NORDPG
  44 :       REAL*8 XCOPG(NDLPG,NBPG)
  45 :       REAL*8 XPOPG(NBPG)
  46 :       ENDSEGMENT
  47 :       SEGMENT POGAUS
  48 :       POINTEUR LISPG(0).POGAU
  49 :       ENDSEGMENT
  50 : CENDINCLUDE SPOGAU
  51 :       POINTEUR PGCOUR.POGAU
  52 : -INC SMINTE
  53 : *
  54 :       INTEGER IMPR,IRET
  55 : *     
  56 : * Executable statements
  57 : *
  58 :       IF (IMPR.GT.2) WRITE(IOIMP,*) 'Entrée dans smi2pg.eso' 
  59 :       SEGACT PGCOUR*MOD
  60 :       IDPG=PGCOUR.XCOPG(/1)
  61 :       MELE=0
  62 :       NNO=0
  63 :       NPINT=0
  63 :       CALL DONRED(NBG,IELE,MELE,NNO,NPINT,MINTE,IRET)
  64 :       IF (IRET.EQ.0) GOTO 9999
  65 :       SEGACT MINTE
  66 :       DO IBG=1,NBG
  67 :          PGCOUR.XCOPG(1,IBG)=QSIGAU(IBG)
  68 :          IF (IDPG.GE.2) THEN
  69 :             PGCOUR.XCOPG(2,IBG)=ETAGAU(IBG)
  70 :             IF (IDPG.GE.3) THEN
  71 :                PGCOUR.XCOPG(3,IBG)=DZEGAU(IBG)
  72 :             ENDIF
  73 :          ENDIF
  74 :          PGCOUR.XPOPG(IBG)=POIGAU(IBG)
  75 :       ENDDO
  76 :       SEGSUP MINTE
  77 :       SEGDES PGCOUR
  78 : *
  79 : * Normal termination
  80 : *
  81 :       IRET=0
  82 :       RETURN
  83 : *
  84 : * Format handling
  85 : *
  86 : *
  87 : * Error handling
  88 : *
  89 :  9999 CONTINUE
  90 :       IRET=1
  91 :       WRITE(IOIMP,*) 'An error was detected in subroutine smi2pg'
  92 :       RETURN
  93 : *
  94 : * End of subroutine SMI2PG
  95 : *
  96 :       END
  97 : 
  98 :