Télécharger placha.eso

Retour à la liste

Numérotation des lignes :

  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