Télécharger chilec.eso

Retour à la liste

Numérotation des lignes :

chilec
  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 PPARAM
  8. -INC CCOPTIO
  9. SEGMENT IDSCHI
  10. REAL*8 GK(NYDIM),AA(NYDIM,NXDIM),FF(NZDIM,NPDIM)
  11. INTEGER IDX(NXDIM),IDY(NYDIM),IDZ(NZDIM),IDP(NPDIM),NN(6)
  12. INTEGER IDECY(NYDIM),IONZ(NXDIM)
  13. CHARACTER*32 NAME(NXDIM),NAMESP(NYDIM)
  14. ENDSEGMENT
  15. C
  16. SEGACT MLIDEN
  17. NXDIM=MLIDEN.LECT(/1)
  18. NYDIM=200
  19. NZDIM=0
  20. NPDIM=0
  21. SEGINI IDSCHI
  22. CALL RSETI(IDX,MLIDEN.LECT,NXDIM)
  23. IF(LBDD.EQ.0)THEN
  24. CALL CHINP(IDSCHI,LXMX,IOCHI1,IOCHI2)
  25. ELSEIF(LBDD.EQ.1)THEN
  26. CALL CHINPS(IDSCHI,LXMX,IOCHI1,IOCHI2)
  27. ENDIF
  28. NYDIM=IDY(/1)
  29. NPDIM=IDP(/1)
  30. C WRITE(6,*)(NAME(I),I=1,NXDIM)
  31. * WRITE(6,*)'IDX',(IDX(I),I=1,NXDIM)
  32. * WRITE(6,*)'IDY',(IDY(I),I=1,NYDIM)
  33. * write(6,*)'chilec IDP',(idp(i),i=1,npdim)
  34. C WRITE(6,*)'GK',(GK(I),I=1,NYDIM)
  35. C WRITE(6,110)((AA(I,J),I=1,NYDIM),J=1,NXDIM)
  36. * WRITE(6,*)' NN ',( NN(i),I=1,6)
  37. 110 FORMAT( 2X ,'AA',(10(1PE10.3)))
  38.  
  39.  
  40. SEGDES MLIDEN
  41. RETURN
  42. END
  43.  
  44.  
  45.  
  46.  
  47.  

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