Télécharger la plaquette Cast3M


fr en

Télécharger wrconf.eso

Retour à la liste

Numérotation des lignes : 

wrconf

  1. C WRCONF    SOURCE    PV090527  24/06/13    08:10:48     11941          
  2.       SUBROUTINE WRCONF (IOSAU,ITLACC,IMAX1,IFORM,IDEB,IDIM,MCOORX)
  3. C     $ , IONIVE,ICOLAC)
  4.       IMPLICIT INTEGER(I-N)
  5.       IMPLICIT REAL*8(A-H,O-Z)
  6. C=======================================================================
  7. C
  8. C        ECRITURE DES CONFIGURATIONS
  9. C
  10. C    APPELLE PAR  :  WRPIL
  11. C
  12. -INC SMCOORD
  13. -INC TMCOLAC
  14.        DIMENSION ILENA(4)
  15.        SEGMENT ICPR(NBPTS*(IDIM+1))
  16. C       IF(IONIVE.GT.9) THEN
  17. C       ITLAC1=KCOLA(32)
  18. C       SEGACT ITLAC1
  19. C       IMA= ITLAC1.ITLAC(/1)
  20. C       write(6,*) ' ima ' , ima
  21.        IDIM1=IDIM+1
  22. C       SEGINI ICPR
  23. C       DO 10 K=1,IMA
  24. C       ICPR(ITLAC1.ITLAC(K))=K
  25. C   10  CONTINUE
  26. C       ENDIF
  27.         MCINI = MCOORD
  28.         MCOORD = MCOORX
  29.        DO 1 IEL=IDEB,IMAX1
  30.        MCOOR1=ITLAC(IEL)
  31. *       write(6,*) ' wrconf iel mcoor1 ' , iel, mcoor1
  32.        IF(MCOOR1.EQ.0) THEN
  33.          ilong=0
  34.          ILENA(1)=ILONG
  35.          itoto=1
  36.          CALL ECDIFE( IOSAU,ITOTO,ILENA,IFORM)
  37.        else
  38.        SEGACT MCOOR1
  39.        NBPTS=MCOOR1.XCOOR(/1)/IDIM1
  40. C       IF(IONIVE.GT.9) THEN
  41. C       DO 2 K=1,IMA
  42. C       IA = (ICPR(K)-1)*IDIM1
  43. C       KI=(K-1)*IDIM1
  44. C       DO 3 KO = 1,IDIM1
  45. C   3   CONTINUE
  46. C   2   CONTINUE
  47. C       ILONG=IMA*IDIM1
  48. C       ELSE
  49.        ILONG=MCOOR1.XCOOR(/1)
  50. C       ENDIF
  51.        ILENA(1)=ILONG
  52.        ITOTO=1
  53.        CALL ECDIFE( IOSAU,ITOTO,ILENA,IFORM)
  54.        CALL ECDIFR( IOSAU,ILONG,MCOOR1.XCOOR(1),IFORM)
  55.        SEGDES MCOOR1
  56.        endif
  57.    1   CONTINUE
  58.        MCOORD=MCINI
  59.        SEGACT MCOORD*MOD
  60.        nbpts=xcoor(/1)/idim1
  61.        RETURN
  62.        END
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  

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