Télécharger la plaquette Cast3M


fr en

Télécharger chatit.eso

Retour à la liste

Numérotation des lignes : 

chatit

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

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