Télécharger la plaquette Cast3M


fr en

Télécharger chmids.eso

Retour à la liste

Numérotation des lignes : 

chmids

  1. C CHMIDS    SOURCE    CHAT      05/01/12    21:59:10     5004
  2.       SUBROUTINE CHMIDS(MLAA,MLOGK,MLFF,MLIDX,MLIDY,MLIDZ,MLIDP,MLNN,
  3.      * MLDECY,MLNAME,MLIONZ,IDSCHI,MLNESP)
  4. C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  5. C
  6. C               OPERATEUR CHI2
  7. C    ON CHARGE LE SEGMENT IDSCHI
  8. C    TOUS LES SEGMENTS SONT ACTIFS AVANT L APPEL
  9. C
  10. C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  11.       IMPLICIT INTEGER(I-N)
  12.       IMPLICIT REAL*8(A-H,O-Z)
  13.  
  14. -INC PPARAM
  15. -INC CCOPTIO
  16. -INC SMLENTI
  17. -INC SMLREEL
  18. -INC SMLMOTS
  19.       SEGMENT IDSCHI
  20.            REAL*8 GK(NYDIM),AA(NYDIM,NXDIM),FF(NZDIM,NPDIM)
  21.            INTEGER IDX(NXDIM),IDY(NYDIM),IDZ(NZDIM),IDP(NPDIM),NN(6)
  22.            INTEGER IDECY(NYDIM),IONZ(NXDIM)
  23.            CHARACTER*32 NAME(NXDIM),NAMESP(NYDIM)
  24.       ENDSEGMENT
  25. C
  26.       MLREEL=MLAA
  27.       JG=PROG(/1)
  28.       CALL RSETD(AA,PROG,JG)
  29.       MLREEL=MLFF
  30.       JG=PROG(/1)
  31.       CALL RSETD(FF,PROG,JG)
  32.       MLENTI=MLIDX
  33.       NXDIM=LECT(/1)
  34.       CALL RSETI(IDX,LECT,NXDIM)
  35.       MLENTI=MLIDY
  36.       NYDIM=LECT(/1)
  37.       CALL RSETI(IDY,LECT,NYDIM)
  38.       MLENTI=MLIDZ
  39.       NZDIM=LECT(/1)
  40.       CALL RSETI(IDZ,LECT,NZDIM)
  41.       MLENTI=MLIDP
  42.       NPDIM=LECT(/1)
  43.       CALL RSETI(IDP,LECT,NPDIM)
  44.       MLREEL=MLOGK
  45.       CALL RSETD(GK,PROG,NYDIM)
  46.       MLENTI=MLNN
  47.       CALL RSETI(NN,LECT,6)
  48.       MLENTI=MLDECY
  49.       CALL RSETI(IDECY,LECT,NYDIM)
  50.       MLENTI=MLIONZ
  51.       CALL RSETI(IONZ,LECT,NXDIM)
  52.       MLMOTS=MLNAME
  53.       DO 50 I=1,NXDIM
  54.           NAME(I)=MOTS(I)
  55.    50 CONTINUE
  56.       MLMOTS=MLNESP
  57.       DO 60 I=1,NYDIM
  58.           NAMESP(I)=MOTS(I)
  59.    60 CONTINUE
  60. CCCCC
  61. c      WRITE(6,*)'FIN CHMIDS.ESO'
  62. c      WRITE(6,*)'IDX',(IDX(J),J=1,NXDIM)
  63. c      write(6,*)'IDY',(IDY(i),i=1,nydim)
  64. c      write(6,*)'IDZ',(idz(k),k=1,nzdim)
  65. c      write(6,*)'IDP',(idp(n),n=1,npdim)
  66. c      DO 60 I=1,NYDIM
  67. c        WRITE(6,*)'IDY',IDY(I),'AA',(AA(I,J),J=1,NXDIM)
  68. c   60 CONTINUE
  69. c      DO 70 K=1,NZDIM
  70. c        WRITE(6,*)'IDZ',IDZ(K),'FF',(FF(K,I),I=1,NPDIM)
  71. c   70 CONTINUE
  72. CCCCC
  73.       RETURN
  74.       END
  75.  
  76.  
  77.  
  78.  
  79.  

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