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    PV        18/06/18    21:15:17     9860           
  2.       SUBROUTINE LIIELV(IORES,ITLACC,IMAX1,IRETOU,IFORM)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. *--------------------------------------------------------------------*
  6. *                                                                    *
  7. *     LECTURE D'UN NOUVEAU CHAMELEM SUR LE FICHIER IORES.            *
  8. *                                                                    *
  9. *     Param}tres:                                                    *
  10. *                                                                    *
  11. *     IORES   NUM{RO DU FICHIER DE LECTURE                           *
  12. *     ITLACC  Pile contenant les nouveaux CHAMELEMs                  *
  13. *     IMAX1   Nombre de CHAMELEMs dans la pile                       *
  14. *     IFORM   Si sauvegarde en format ou non                         *
  15. *                                                                    *
  16. *     APPEL{ PAR: LIPIL                                              *
  17. *                                                                    *
  18. *     Auteur, date de cr{ation:                                      *
  19. *                                                                    *
  20. *     Denis ROBERT-MOUGIN, le 29 juin 1989.                          *
  21. *                                                                    *
  22. *--------------------------------------------------------------------*
  23. -INC SMCHAML
  24. -INC CCFXDR
  25. *
  26.       SEGMENT,ITLACC
  27.          INTEGER ITLAC(0)
  28.       ENDSEGMENT
  29. *
  30.       INTEGER IDAN(4)
  31.       IRETOU=0
  32.       NM5=0
  33. *
  34. *     Boucle sur les MELVAL contenus dans la pile:
  35. *
  36.       DO 10 IEL=1,IMAX1
  37. *
  38.          MELVAL  = 0
  39. *
  40. *  CREATION ET REMPLISSAGE DU SEGMENT MCHELM
  41. *
  42.             CALL LFCDIE(IORES,4,IDAN,IRETOU,IFORM)
  43.             IF(IRETOU.NE.0) RETURN
  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.             L1=N1PTEL*N1EL
  52.             L2=N2PTEL*N2EL
  53.             IF (L1 .GT. 0)CALL LFCDI2(IORES,L1,VELCHE(1,1),IRETOU,IFORM)
  54.             IF (L2 .GT. 0)CALL LFCDIE(IORES,L2,IELCHE(1,1),IRETOU,IFORM)
  55.             IF(IRETOU.NE.0) RETURN
  56.          SEGDES MELVAL
  57.          ITLAC(**)=MELVAL
  58.  10      CONTINUE
  59. *
  60.       RETURN
  61.       END
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  

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