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

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