Télécharger la plaquette Cast3M


fr en

Télécharger liielv.eso

Retour à la liste

Numérotation des lignes : 

liielv

  1. C LIIELV    SOURCE    OF166741  24/12/18    21:15:18     12090          
  2.  
  3. *----------------------------------------------------------------------*
  4. *                                                                      *
  5. *     LECTURE D'UN SEGMENT MELVAL SUR LE FICHIER IORES                 *
  6. *                                                                      *
  7. *     Parametres :                                                     *
  8. *                                                                      *
  9. *     IORES   NUMERO DU FICHIER DE LECTURE                             *
  10. *     ITLACC  Pile contenant les segments MELVAL (IELVAL)              *
  11. *     IMAX1   Nombre de CHAMELEMs dans la pile                         *
  12. *     IFORM   Si sauvegarde en format ou non                           *
  13. *                                                                      *
  14. *     APPELE PAR : LIPIL                                               *
  15. *----------------------------------------------------------------------*
  16.       SUBROUTINE LIIELV(IORES,ITLACC,IMAX1,IRETOU,IFORM)
  17.  
  18.       IMPLICIT INTEGER(I-N)
  19.       IMPLICIT REAL*8(A-H,O-Z)
  20.  
  21. -INC CCFXDR
  22. -INC SMCHAML
  23.  
  24.       SEGMENT,ITLACC
  25.         INTEGER ITLAC(0)
  26.       ENDSEGMENT
  27.  
  28.       INTEGER IDAN(4)
  29.  
  30.       IRETOU = 0
  31.  
  32.       NIDAN = 4
  33. *
  34. *     Boucle sur les MELVAL contenus dans la pile:
  35. *
  36.       DO IEL = 1, IMAX1
  37.  
  38.          MELVAL  = 0
  39.  
  40.          CALL LFCDIE(IORES,NIDAN,IDAN,IRETOU,IFORM)
  41.          IF (IRETOU.NE.0) RETURN
  42. *
  43. *  CREATION ET REMPLISSAGE DU SEGMENT MELVAL
  44. *
  45.          N1PTEL = IDAN(1)
  46.          N1EL   = IDAN(2)
  47.          N2PTEL = IDAN(3)
  48.          N2EL   = IDAN(4)
  49.          if (n2ptel.ne.0.and.n2el.ne.0) call erreur(5)
  50.          SEGINI MELVAL
  51.  
  52.          L1=N1PTEL*N1EL
  53.          L2=N2PTEL*N2EL
  54.          IF (L1 .GT. 0) CALL LFCDI2(IORES,L1,VELCHE(1,1),IRETOU,IFORM)
  55.          IF (L2 .GT. 0) CALL LFCDIE(IORES,L2,IELCHE(1,1),IRETOU,IFORM)
  56.          IF (IRETOU.NE.0) RETURN
  57.  
  58.          SEGDES MELVAL
  59.  
  60.          ITLAC(**) = MELVAL
  61.  
  62.       ENDDO
  63.  
  64.       RETURN
  65.       END
  66.  
  67.  
  68.  

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