Télécharger la plaquette Cast3M


fr en

Télécharger ddl2pi.eso

Retour à la liste

Numérotation des lignes : 

ddl2pi

  1. C DDL2PI    SOURCE    PV        20/09/26    21:16:18     10724          
  2.       SUBROUTINE DDL2PI(IDDL,MYMINC,
  3.      $     IPT,IBI,
  4.      $     IMPR,IRET)
  5.       IMPLICIT REAL*8 (A-H,O-Z)
  6.       IMPLICIT INTEGER (I-N)
  7. C***********************************************************************
  8. C NOM         : DDL2PI
  9. C DESCRIPTION : numéro de ddl ->
  10. C              (numéro de point, numéro d'inconnue)
  11. C
  12. C
  13. C
  14. C LANGAGE     : ESOPE
  15. C AUTEUR      : Stéphane GOUNAND (CEA/DEN/DM2S/SFME/LTMF)
  16. C               mél : gounand@semt2.smts.cea.fr
  17. C***********************************************************************
  18. C APPELES          :
  19. C APPELES (E/S)    :
  20. C APPELES (BLAS)   :
  21. C APPELES (CALCUL) :
  22. C APPELE PAR       :
  23. C***********************************************************************
  24. C SYNTAXE GIBIANE    :
  25. C ENTREES            :
  26. C ENTREES/SORTIES    :
  27. C SORTIES            :
  28. C CODE RETOUR (IRET) : = 0 si tout s'est bien passé
  29. C***********************************************************************
  30. C VERSION    : v1, 24/05/2004, version initiale
  31. C HISTORIQUE : v1, 24/05/2004, création
  32. C HISTORIQUE :
  33. C HISTORIQUE :
  34. C***********************************************************************
  35. C Prière de PRENDRE LE TEMPS de compléter les commentaires
  36. C en cas de modification de ce sous-programme afin de faciliter
  37. C la maintenance !
  38. C***********************************************************************
  39.  
  40. -INC PPARAM
  41. -INC CCOPTIO
  43.       POINTEUR MYMINC.MINC
  44. *
  45.       INTEGER IMPR,IRET
  46. *
  47. * Executable statements
  48. *
  49.       IF (IMPR.GT.5) WRITE(IOIMP,*) 'Entrée dans ddl2pi.eso'
  50.       SEGACT MYMINC
  51.       NPT=MYMINC.MPOS(/1)
  52.       NBI=MYMINC.MPOS(/2)-1
  53. * Find IPT
  54.       DO IPT=2,NPT+1
  55.          IF (MYMINC.NPOS(IPT).GT.IDDL) GOTO 2
  56.       ENDDO
  57.       WRITE(IOIMP,*) 'Erreur grave 1'
  58.  2    CONTINUE
  59.       IPT=IPT-1
  60. * Find IBI
  61.       DO IBI=1,NBI
  62.          IINC=MYMINC.MPOS(IPT,IBI)
  63.          IF (IINC.NE.0) THEN
  64.             IDDL2=MYMINC.NPOS(IPT)+IINC-1
  65.             IF (IDDL2.EQ.IDDL) GOTO 3
  66.          ENDIF
  67.       ENDDO
  68.       WRITE(IOIMP,*) 'Erreur grave 2'
  69.  3    CONTINUE
  70. *
  71. * Normal termination
  72. *
  73.       IRET=0
  74.       RETURN
  75. *
  76. * Format handling
  77. *
  78. *
  79. * Error handling
  80. *
  81.  9999 CONTINUE
  82.       IRET=1
  83.       WRITE(IOIMP,*) 'An error was detected in subroutine ddl2pi'
  84.       RETURN
  85. *
  86. * End of subroutine DDL2PI
  87. *
  88.       END
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  

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