Télécharger chilec.eso

Retour à la liste

Numérotation des lignes :

  1. C CHILEC SOURCE CHAT 05/01/12 21:57:21 5004
  2. SUBROUTINE CHILEC(LBDD,MLIDEN,LXMX,IDSCHI,IOCHI1,IOCHI2)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. -INC SMLENTI
  6. POINTEUR MLIDEN.MLENTI,MLXMX.MLENTI
  7. -INC CCOPTIO
  8. SEGMENT IDSCHI
  9. REAL*8 GK(NYDIM),AA(NYDIM,NXDIM),FF(NZDIM,NPDIM)
  10. INTEGER IDX(NXDIM),IDY(NYDIM),IDZ(NZDIM),IDP(NPDIM),NN(6)
  11. INTEGER IDECY(NYDIM),IONZ(NXDIM)
  12. CHARACTER*32 NAME(NXDIM),NAMESP(NYDIM)
  13. ENDSEGMENT
  14. C
  15. SEGACT MLIDEN
  16. NXDIM=MLIDEN.LECT(/1)
  17. NYDIM=200
  18. NZDIM=0
  19. NPDIM=0
  20. SEGINI IDSCHI
  21. CALL RSETI(IDX,MLIDEN.LECT,NXDIM)
  22. IF(LBDD.EQ.0)THEN
  23. CALL CHINP(IDSCHI,LXMX,IOCHI1,IOCHI2)
  24. ELSEIF(LBDD.EQ.1)THEN
  25. CALL CHINPS(IDSCHI,LXMX,IOCHI1,IOCHI2)
  26. ENDIF
  27. NYDIM=IDY(/1)
  28. NPDIM=IDP(/1)
  29. C WRITE(6,*)(NAME(I),I=1,NXDIM)
  30. * WRITE(6,*)'IDX',(IDX(I),I=1,NXDIM)
  31. * WRITE(6,*)'IDY',(IDY(I),I=1,NYDIM)
  32. * write(6,*)'chilec IDP',(idp(i),i=1,npdim)
  33. C WRITE(6,*)'GK',(GK(I),I=1,NYDIM)
  34. C WRITE(6,110)((AA(I,J),I=1,NYDIM),J=1,NXDIM)
  35. * WRITE(6,*)' NN ',( NN(i),I=1,6)
  36. 110 FORMAT( 2X ,'AA',(10(1PE10.3)))
  37.  
  38.  
  39. SEGDES MLIDEN
  40. RETURN
  41. END
  42.  
  43.  
  44.  
  45.  
  46.  

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