Télécharger liielv.eso

Retour à la liste

Numérotation des lignes :

  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