Télécharger chmids.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  14. -INC SMLENTI
  15. -INC SMLREEL
  16. -INC SMLMOTS
  17. SEGMENT IDSCHI
  18. REAL*8 GK(NYDIM),AA(NYDIM,NXDIM),FF(NZDIM,NPDIM)
  19. INTEGER IDX(NXDIM),IDY(NYDIM),IDZ(NZDIM),IDP(NPDIM),NN(6)
  20. INTEGER IDECY(NYDIM),IONZ(NXDIM)
  21. CHARACTER*32 NAME(NXDIM),NAMESP(NYDIM)
  22. ENDSEGMENT
  23. C
  24. MLREEL=MLAA
  25. JG=PROG(/1)
  26. CALL RSETD(AA,PROG,JG)
  27. MLREEL=MLFF
  28. JG=PROG(/1)
  29. CALL RSETD(FF,PROG,JG)
  30. MLENTI=MLIDX
  31. NXDIM=LECT(/1)
  32. CALL RSETI(IDX,LECT,NXDIM)
  33. MLENTI=MLIDY
  34. NYDIM=LECT(/1)
  35. CALL RSETI(IDY,LECT,NYDIM)
  36. MLENTI=MLIDZ
  37. NZDIM=LECT(/1)
  38. CALL RSETI(IDZ,LECT,NZDIM)
  39. MLENTI=MLIDP
  40. NPDIM=LECT(/1)
  41. CALL RSETI(IDP,LECT,NPDIM)
  42. MLREEL=MLOGK
  43. CALL RSETD(GK,PROG,NYDIM)
  44. MLENTI=MLNN
  45. CALL RSETI(NN,LECT,6)
  46. MLENTI=MLDECY
  47. CALL RSETI(IDECY,LECT,NYDIM)
  48. MLENTI=MLIONZ
  49. CALL RSETI(IONZ,LECT,NXDIM)
  50. MLMOTS=MLNAME
  51. DO 50 I=1,NXDIM
  52. NAME(I)=MOTS(I)
  53. 50 CONTINUE
  54. MLMOTS=MLNESP
  55. DO 60 I=1,NYDIM
  56. NAMESP(I)=MOTS(I)
  57. 60 CONTINUE
  58. CCCCC
  59. c WRITE(6,*)'FIN CHMIDS.ESO'
  60. c WRITE(6,*)'IDX',(IDX(J),J=1,NXDIM)
  61. c write(6,*)'IDY',(IDY(i),i=1,nydim)
  62. c write(6,*)'IDZ',(idz(k),k=1,nzdim)
  63. c write(6,*)'IDP',(idp(n),n=1,npdim)
  64. c DO 60 I=1,NYDIM
  65. c WRITE(6,*)'IDY',IDY(I),'AA',(AA(I,J),J=1,NXDIM)
  66. c 60 CONTINUE
  67. c DO 70 K=1,NZDIM
  68. c WRITE(6,*)'IDZ',IDZ(K),'FF',(FF(K,I),I=1,NPDIM)
  69. c 70 CONTINUE
  70. CCCCC
  71. RETURN
  72. END
  73.  
  74.  
  75.  
  76.  
  77.  

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