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    CB215821  18/05/23    21:15:04     9825           
  2.       SUBROUTINE WRielv(IOSAU,ITLACC,IMAX1,IFORM,IONIVE,IDEB)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. *--------------------------------------------------------------------*
  6. *                                                                    *
  7. *     Ecriture d'un melval sur le fichier IOSAU.                     *
  8. *                                                                    *
  9. *     Paramètres:                                                    *
  10. *                                                                    *
  11. *     IOSAU   Numéro du fichier de sortie                            *
  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: WRPIL                                              *
  17. *                                                                    *
  18. *     Auteur, date de création:                                      *
  19. *                                                                    *
  20. *     PV  2017                                                       *
  21. *                                                                    *
  22. *--------------------------------------------------------------------*
  23. -INC SMCHAML
  24. -INC CCFXDR
  25. *
  26.       dimension idan(4)
  27. **    segment velch1(velche(/2),velche(/1))
  28.       SEGMENT,ITLACC
  29.          INTEGER ITLAC(0)
  30.       ENDSEGMENT
  31. *
  32.                DO 32 iel=ideb,imax1
  33.                   MELVAL = ITLAC(IEL)
  34.                   SEGACT,MELVAL
  35.                   IDAN (1) = VELCHE(/1)
  36.                   IDAN (2) = VELCHE(/2)
  37.                   IDAN (3) = IELCHE(/1)
  38.                   IDAN (4) = IELCHE(/2)
  39.                   CALL ECDIFE(IOSAU,4,IDAN,IFORM)
  40. *
  41. *             ... ECRITURE DU CONTENU DU SEGMENT MELVAL :
  42. *
  43. **                segini velch1
  44. **                do i=1,velche(/1)
  45. **                  do j=1,velche(/2)
  46. **                    velch1(j,i)=velche(i,j)
  47. **                  enddo
  48. **                enddo
  49.  
  50.                   L1 = IDAN(1) * IDAN(2)
  51.                   L2 = IDAN(3) * IDAN(4)             
  52.                   IF (L1 .GT. 0) CALL ECDIFR(IOSAU,L1,VELCHE(1,1),IFORM)                       
  53.                   IF (L2 .GT. 0) CALL ECDIFE(IOSAU,L2,IELCHE(1,1),IFORM)
  54.                   SEGDES,MELVAL
  55. **                segsup velch1
  56.  32            CONTINUE
  57. *
  58.  22         CONTINUE
  59. *
  60. *
  61.       RETURN
  62.       END
  63.  
  64.  

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