Télécharger la plaquette Cast3M


fr en

Télécharger examdl.eso

Retour à la liste

Numérotation des lignes : 

examdl

  1. C EXAMDL    SOURCE    OF166741  24/12/18    21:15:05     12090          
  2.  
  3.       SUBROUTINE EXAMDL(ICOLAC,ITLACC,M1,M2,IIICHA,NIVEAU)
  4.  
  5.       IMPLICIT INTEGER(I-N)
  6.       IMPLICIT REAL*8(A-H,O-Z)
  7.  
  8. -INC PPARAM
  9. -INC CCOPTIO
  10.  
  11. -INC SMMODEL
  12.  
  13. -INC TMCOLAC
  14.  
  15.       IF (M1.GT.M2) RETURN
  16.  
  17. c-dbg      write(ioimp,*) 'Niveau',Niveau
  18.       ILISSE = icolac.ILISSP
  19.       SEGACT,ILISSE*MOD
  20.       ILISSE = icolac.ILISSF
  21.       SEGACT,ILISSE*MOD
  22.       ILISSE = icolac.ILISSG
  23.       SEGACT,ILISSE*MOD
  24. c-dbg      write(ioimp,*) 'Pile des MMODEL',ILISSE,IFILE,ITLACC
  25.  
  26.       iun = 1
  27.  
  28. C ****** NIVEAU 26 et + ****** MMODEL ***** avec Pile des IMODEL *******
  29.       IF (NIVEAU.GE.26) THEN
  30. C ******
  31.       ICO51 = icolac.KCOLA(51)
  32.  
  33.       DO IEL = M1, M2
  34.  
  35.         MMODEL = itlacc.ITLAC(IEL)
  36.         IF (MMODEL.EQ.0) GOTO 10
  37.  
  38.         SEGACT,MMODEL*MOD
  39.         DO ism = 1, mmodel.KMODEL(/1)
  40.           iva = mmodel.KMODEL(ism)
  41.           IF (iva.GT.0) THEN
  42.             CALL AJOUN(ICO51,iva,ILISSE,iun)
  43.             IF (IIICHA.EQ.1) mmodel.KMODEL(ism) = -iva
  44.           ENDIF
  45.         ENDDO
  46.         SEGDES,MMODEL
  47.  
  48.  10     CONTINUE
  49.  
  50.       ENDDO
  51.  
  52. C ****** NIVEAU 25 et - ****** MMODEL **********************************
  53. C      ELSE IF (NIVEAU.LE.25) THEN
  54.       ELSE
  55. C ******
  56.  
  57.       DO IEL = M1, M2
  58.  
  59.         MMODEL = itlacc.ITLAC(IEL)
  60.         IF (MMODEL.EQ.0) GOTO 1025
  61.  
  62.         SEGACT,MMODEL
  63.         DO ism = 1, mmodel.KMODEL(/1)
  64.           iva = mmodel.KMODEL(ism)
  65.           IF (iva.GT.0) CALL EXIMOD(ICOLAC,iva,IIICHA,NIVEAU)
  66.         ENDDO
  67.         SEGDES,MMODEL
  68.  
  69.  1025   CONTINUE
  70.  
  71.       ENDDO
  72.  
  73. C ******
  74.       ENDIF
  75. C ******
  76.  
  77.       RETURN
  78.       END
  79.  
  80.  
  81.  

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