Télécharger la plaquette Cast3M


fr en

Télécharger placha.eso

Retour à la liste

Numérotation des lignes : 

placha

  1. C PLACHA    SOURCE    CB215821  19/08/20    21:20:16     10287          
  2.       SUBROUTINE PLACHA(IPCHAM,TICHAM,NTI,IPLA)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. *--------------------------------------------------------------------*
  6. *                                                                    *
  7. *     A partir d'un pointeur de MCHAML, PLACHA retourne la position  *
  8. *     IPLA du titre du MCHAML dans le tableau TICHAM. IPLA est nul   *
  9. *     si la recherche est negative.                                  *
  10. *                                                                    *
  11. *--------------------------------------------------------------------*
  12. *                                                                    *
  13. *     Entrees:                                                       *
  14. *                                                                    *
  15. *        IPCHAM    pointeur sur un MCHAML inconnu                    *
  16. *        TICHAM    tableau de titre de MCHAML                        *
  17. *        NTI       dimension de ce tableau                           *
  18. *                                                                    *
  19. *     Sorties:                                                       *
  20. *                                                                    *
  21. *        IPLA      rang dans le tableau                              *
  22. *                                                                    *
  23. *     PP 29/8/91                                                     *
  24. *--------------------------------------------------------------------*
  25. -INC SMCHAML
  26.  
  27. -INC PPARAM
  28. -INC CCOPTIO
  29. *
  30.       CHARACTER*(*) TICHAM(NTI)
  31. *
  32.       MCHELM=IPCHAM
  33.       SEGACT,MCHELM
  34.       LTIT=TITCHE(/1)
  35.       DO 1 IE1=NTI,1,-1
  36.         IF (TITCHE.EQ.TICHAM(IE1)(1:LTIT)) GOTO 2
  37.  1    CONTINUE
  38.  2    IPLA=IE1
  39.  
  40.       END
  41.  
  42.  
  43.  

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