Télécharger placha.eso

Retour à la liste

Numérotation des lignes :

  1. C PLACHA SOURCE PV 09/03/12 21:30:23 6325
  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. -INC CCOPTIO
  27. *
  28. CHARACTER*(*) TICHAM(NTI)
  29. *
  30. MCHELM=IPCHAM
  31. SEGACT,MCHELM
  32. LTIT=TITCHE(/1)
  33. DO 1 IE1=NTI,1,-1
  34. IF (TITCHE.EQ.TICHAM(IE1)(1:LTIT)) GOTO 2
  35. 1 CONTINUE
  36. 2 IPLA=IE1
  37. *
  38. SEGDES,MCHELM
  39. *
  40. RETURN
  41. END
  42.  
  43.  
  44.  
  45.  
  46.  

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