Esope source files

   1 : C INILRF    SOURCE    GOUNAND   05/12/21    21:32:59     5281           
   2 :       SUBROUTINE INILRF(CNOM,CFOR,CTYPL,CESP,
   3 :      $     NDEL,NBNO,NDDL,NDEG,
   4 :      $     LRF,
   5 :      $     IMPR,IRET)
   6 :       IMPLICIT REAL*8 (A-H,O-Z)
   7 :       IMPLICIT INTEGER (I-N)
   8 : C***********************************************************************
   9 : C NOM         : INILRF 
  10 : C PROJET      : Noyau linéaire NLIN
  11 : C DESCRIPTION : Initialise un segment décrivant un élément de référence.
  12 : C
  13 : C LANGAGE     : ESOPE
  14 : C AUTEUR      : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
  15 : C               mél : gounand@semt2.smts.cea.fr
  16 : C***********************************************************************
  17 : C APPELES          : -
  18 : C APPELE PAR       : INELSE, INELTR, INELQU, INELTE, INELPR, INELCU
  19 : C***********************************************************************
  20 : C ENTREES            : CNOM, CFOR, CTYPL, CESP, NDEL,NBNO,NDDL,NDEG
  21 : C ENTREES/SORTIES    : -
  22 : C SORTIES            : LRF
  23 : C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  24 : C***********************************************************************
  25 : C VERSION    : v1, 20/07/99, version initiale
  26 : C HISTORIQUE : v1, 20/07/99, création
  27 : C HISTORIQUE : v2, 09/05/00, chgt de l'include SELREF
  28 : C HISTORIQUE :
  29 : C HISTORIQUE :
  30 : C***********************************************************************
  31 : C Prière de PRENDRE LE TEMPS de compléter les commentaires
  32 : C en cas de modification de ce sous-programme afin de faciliter
  33 : C la maintenance !
  34 : C***********************************************************************
  35 : -INC CCOPTIO
  36 : CBEGININCLUDE SELREF
  37 :       SEGMENT ELREF
  38 :       CHARACTER*(LNNOM)  NOMLRF
  39 :       CHARACTER*(LNFORM) FORME 
  40 :       CHARACTER*(LNTYPL) TYPEL 
  41 :       CHARACTER*(LNESP)  ESPACE
  42 :       INTEGER DEGRE
  43 :       REAL*8 XCONOD(NDIMEL,NBNOD)
  44 :       INTEGER NPQUAF(NBDDL)
  45 :       INTEGER NUMCMP(NBDDL)
  46 :       INTEGER QUENOD(NBDDL)
  47 :       INTEGER ORDDER(NDIMEL,NBDDL)
  48 :       POINTEUR MBPOLY.POLYNS
  49 :       ENDSEGMENT
  50 :       SEGMENT ELREFS
  51 :       POINTEUR LISEL(0).ELREF
  52 :       ENDSEGMENT
  53 : CENDINCLUDE SELREF
  54 :       INTEGER LNNOM,LNFORM,LNTYPL,LNESP
  55 :       INTEGER NDIMEL,NBNOD,NBDDL
  56 :       POINTEUR LRF.ELREF
  57 : *
  58 :       CHARACTER*(*) CNOM,CFOR,CTYPL,CESP
  59 :       INTEGER NDEL,NBNO,NDDL,NDEG
  60 : *
  61 :       INTEGER IMPR,IRET
  62 : *     
  63 : * Executable statements
  64 : *
  65 :       IF (IMPR.GT.6) WRITE(IOIMP,*) 'Entrée dans inilrf'
  66 :       LNNOM =LEN(CNOM)
  67 :       LNFORM=LEN(CFOR)
  68 :       LNTYPL=LEN(CTYPL)
  69 :       LNESP =LEN(CESP)
  70 :       NDIMEL=NDEL
  71 :       NBNOD=NBNO
  72 :       NBDDL=NDDL
  73 :       SEGINI LRF
  74 :       LRF.NOMLRF=CNOM
  75 :       LRF.FORME =CFOR
  76 :       LRF.TYPEL =CTYPL
  77 :       LRF.ESPACE=CESP
  78 :       LRF.DEGRE =NDEG
  79 : *
  80 : * Normal termination
  81 : *
  82 :       IRET=0
  83 :       RETURN
  84 : *
  85 : * Format handling
  86 : *
  87 : *
  88 : * Error handling
  89 : *
  90 :  9999 CONTINUE
  91 :       IRET=1
  92 :       WRITE(IOIMP,*) 'An error was detected in subroutine inilrf'
  93 :       RETURN
  94 : *
  95 : * End of subroutine inilrf
  96 : *
  97 :       END
  98 : 
  99 :  
 100 :