Télécharger la plaquette Cast3M


fr en

Télécharger chilec.eso

Retour à la liste

Numérotation des lignes : 

chilec

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

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