Télécharger la plaquette Cast3M


fr en

Télécharger wrielv.eso

Retour à la liste

Numérotation des lignes : 

wrielv

  1. C WRIELV    SOURCE    OF166741  24/12/18    21:15:38     12090          
  2.  
  3. *--------------------------------------------------------------------*
  4. *                                                                    *
  5. *     Ecriture d'un melval sur le fichier IOSAU.                     *
  6. *                                                                    *
  7. *     Paramètres:                                                    *
  8. *                                                                    *
  9. *     IOSAU   Numéro du fichier de sortie                            *
  10. *     ITLACC  Pile contenant les nouveaux CHAMELEMs                  *
  11. *     IFIN    Nombre de CHAMELEMs dans la pile                       *
  12. *     IFORM   Si sauvegarde en format ou non                         *
  13. *                                                                    *
  14. *     Appele par : WRPIL                                             *
  15. *                                                                    *
  16. *     Auteur, date de creation :                                     *
  17. *     PV  2017                                                       *
  18. *                                                                    *
  19. *--------------------------------------------------------------------*
  20.  
  21.       SUBROUTINE WRIELV(IOSAU,ITLACC,IDEB,IFIN,IONIV,IFORM)
  22.  
  23.       IMPLICIT INTEGER(I-N)
  24.       IMPLICIT REAL*8(A-H,O-Z)
  25.  
  26. -INC CCFXDR
  27.  
  28. -INC SMCHAML
  29.  
  30.       SEGMENT,ITLACC
  31.          INTEGER ITLAC(0)
  32.       ENDSEGMENT
  33.  
  34.       DIMENSION IDAN(4)
  35.  
  36.       NIDAN = 4
  37.  
  38.       DO IEL = IDEB, IFIN
  39.  
  40.          MELVAL = ITLAC(IEL)
  41.          SEGACT,MELVAL
  42.  
  43.          IDAN(1) = VELCHE(/1)
  44.          IDAN(2) = VELCHE(/2)
  45.          IDAN(3) = IELCHE(/1)
  46.          IDAN(4) = IELCHE(/2)
  47.          CALL ECDIFE(IOSAU,NIDAN,IDAN,IFORM)
  48.  
  49.          L1 = IDAN(1) * IDAN(2)
  50.          L2 = IDAN(3) * IDAN(4)             
  51.          IF (L1 .GT. 0) CALL ECDIFR(IOSAU,L1,VELCHE(1,1),IFORM)                       
  52.          IF (L2 .GT. 0) CALL ECDIFE(IOSAU,L2,IELCHE(1,1),IFORM)
  53.          SEGDES,MELVAL
  54.  
  55.       ENDDO
  56.  
  57.       RETURN
  58.       END
  59.  
  60.  
  61.  

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