Télécharger chatit.eso

Retour à la liste

Numérotation des lignes :

  1. C CHATIT SOURCE CB215821 19/08/20 21:15:43 10287
  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.  
  18. -INC SMCHAML
  19. -INC CCOPTIO
  20.  
  21. CHARACTER*(*) CHAR
  22.  
  23. MCHEL1=IPOI1
  24.  
  25. N1=MCHEL1.ICHAML(/1)
  26. N3=MCHEL1.INFCHE(/2)
  27. L1=LEN(CHAR)
  28. SEGINI,MCHELM
  29. IPOI2=MCHELM
  30.  
  31. MCHELM.TITCHE=CHAR(1:L1)
  32. MCHELM.IFOCHE=MCHEL1.IFOCHE
  33.  
  34. C Unroll pour aller plus vite
  35. DO ii=1,N1
  36. MCHELM.CONCHE(ii)=MCHEL1.CONCHE(ii)
  37. ENDDO
  38. DO ii=1,N1
  39. MCHELM.IMACHE(ii)=MCHEL1.IMACHE(ii)
  40. ENDDO
  41. DO ii=1,N1
  42. MCHELM.ICHAML(ii)=MCHEL1.ICHAML(ii)
  43. ENDDO
  44. DO kk=1,N3
  45. DO ii=1,N1
  46. MCHELM.INFCHE(ii,kk)=MCHEL1.INFCHE(ii,kk)
  47. ENDDO
  48. ENDDO
  49.  
  50. END
  51.  
  52.  
  53.  

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