Télécharger la plaquette Cast3M


fr en

Télécharger wrvect.eso

Retour à la liste

Numérotation des lignes : 

wrvect

  1. C WRVECT    SOURCE    CB215821  26/08/24    21:18:53     12622          
  2.       SUBROUTINE WRVECT (MVECTE,IOSAU,IRETOU,IFORM)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. C=======================================================================
  6. C
  7. C        ECRITURE DE 1 VECTEUR SUR LA BANDE IOSAU
  8. C
  9. C    ECRIT  PAR LENA
  10. C    APPELE PAR WRPIL
  11. C    APPELLE      :  ECDIFR ECDIFE  ECDIFMP
  12. C=======================================================================
  13. -INC PPARAM
  14. -INC SMVECTE
  15. C=======================================================================
  16. C
  17.       DIMENSION ILENA(40)
  18. C
  19. C******************************************ECRITURE
  20. C
  21.       IRETOU=0
  22.       SEGACT MVECTE
  23.       NVEC    = NOCOVE(/2)
  24.       ID      =  NOCOVE(/3)
  25.       ILENA(1)= NVEC
  26.       ILENA(2)=  ID
  27.       ITOTO    = 2
  28.       CALL ECDIFE (IOSAU,ITOTO,ILENA,IFORM)
  29.       CALL ECDIFE (IOSAU,NVEC,IGEOV,IFORM)
  30.       CALL ECDIFR (IOSAU,NVEC,AMPF ,IFORM)
  31.       CALL ECDIFE (IOSAU,NVEC,NOCOUL,IFORM)
  32.       CALL ECDIFE (IOSAU,NVEC,ICHPO,IFORM)
  33.       L=NVEC*ID
  34.       DO 11 J=1,ID
  35.          DO 10 I=1,NVEC
  36.             READ (NOCOVE(I,J),FMT='(A4)') ILENA((J-1)*NVEC+I)
  37.   10  CONTINUE
  38.    11 CONTINUE
  39.       CALL ECDIFM (IOSAU,L,ILENA      ,IFORM)
  40.       SEGDES MVECTE
  41.    1  RETURN
  42.       END
  43.  
  44.  
  45.  
  46.  

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