Télécharger chatit.eso

Retour à la liste

Numérotation des lignes :

  1. C CHATIT SOURCE CB215821 17/10/12 21:15:00 9589
  2. SUBROUTINE CHATIT(IPOI1,CHAR,IPOI2)
  3. *
  4. * APPELE PAR PRCHAN,CHANGE LE TITRE D'UN MCHAML
  5. *******************************************************************
  6. * ENTREES :
  7. * IPOI1 = POINTEUR DU MCHAML POUR LEQUEL ON VEUT CHANAGER LE TITRE
  8. * CHAR = CHAINE DE CARACTERES REPRESENTANT LE TITRE
  9. *
  10. * SORITIES :
  11. *
  12. * IPOI2 = POINTEUR DU MCHAML AVEC LE NOUVELLE TITRE
  13. *
  14. ************************************************************************
  15. IMPLICIT INTEGER(I-N)
  16. IMPLICIT REAL*8(A-H,O-Z)
  17. -INC SMCHAML
  18. -INC CCOPTIO
  19. CHARACTER*(*) CHAR
  20. *
  21. MCHEL1=IPOI1
  22. SEGINI,MCHELM=MCHEL1
  23.  
  24. L1 = LEN(CHAR)
  25. IF(L1.NE. MCHELM.TITCHE(/1))THEN
  26. N1=MCHELM.ICHAML(/1)
  27. N3=MCHELM.INFCHE(/2)
  28. SEGADJ,MCHELM
  29. ENDIF
  30. MCHELM.TITCHE=CHAR(1:L1)
  31.  
  32. SEGDES,MCHELM
  33. IPOI2=MCHELM
  34. RETURN
  35. END
  36.  
  37.  
  38.  

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