Télécharger la plaquette Cast3M


fr en

Télécharger wrjonc.eso

Retour à la liste

Numérotation des lignes : 

wrjonc

  1. C WRJONC    SOURCE    CHAT      05/01/13    04:12:13     5004
  2.       SUBROUTINE WRJONC(IOSAU,ITLACC,IMAX1,IFORM,IDEB)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. C=======================================================================
  6. C      BUT     : ECRITURE DES MJONCTSUR LE FICHIER IOSAU
  7. C      APPELE PAR WRPIL
  8. C      APPELLE :  ECDIFE ECDIFM ECDIFR
  9. C      ECRIT PAR FARVACQUE   - REPRIS PAR LENA
  10. C=======================================================================
  11. C=======================================================================
  12. -INC SMATTAC
  13.       SEGMENT/ITLACC/(ITLAC(0)),ITLAC1.ITLACC,ITLAC2.ITLACC,
  14.      1 ITLAC3.ITLACC,ITLAC4.ITLACC,ITLAC5.ITLACC,ITLAC6.ITLACC
  15. C=======================================================================
  16. C=======================================================================
  17.       DIMENSION ILENA(10)
  18. C     ***************************** MJONCT *****************************
  19.  6014 CONTINUE
  20.       DO 140 IEL=IDEB,IMAX1
  21.          MJONCT=ITLAC(IEL)
  22.          SEGACT MJONCT
  23.          N=ISTRJO(/1)
  24.          ILENA(1)=N
  25.          ILENA(2)=MJOPOI
  26.          ITOTO=2
  27.          CALL ECDIFE ( IOSAU,ITOTO,ILENA,IFORM)
  28.          READ(MJODDL,FMT='(A4)') ILENA(1)
  29.          CALL ECDIFM ( IOSAU,1    ,ILENA ,IFORM)
  30.          READ(MJOTYP,FMT='(A4)') ILENA(1)
  31.          CALL ECDIFM ( IOSAU,1    ,ILENA ,IFORM)
  32.          CALL ECDIFE ( IOSAU,N    ,ISTRJO,IFORM)
  33.          CALL ECDIFE ( IOSAU,N    ,IPCHJO,IFORM)
  34.          CALL ECDIFE ( IOSAU,N    ,IPOSJO,IFORM)
  35.          SEGDES MJONCT
  36.   140 CONTINUE
  37.       GO TO 1098
  38.  1098 CONTINUE
  39.       RETURN
  40.       END
  41.  
  42.  
  43.  

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