Télécharger la plaquette Cast3M


fr en

Télécharger tagrad.eso

Retour à la liste

Numérotation des lignes : 

tagrad

  1. C TAGRAD    SOURCE    CHAT      05/01/13    03:31:20     5004
  2.       SUBROUTINE TAGRAD
  3. C---------------------------------------------------------------------
  4. C
  5. C         CALCUL DE TRANSPOSE DE GRADIENT OU GRAFLEXI
  6. C
  7. C     CH1  =  TAGR  CHEL ;
  8. C     CHEL =  OBJET DE TYPE  MCHAML  DE SOUS TYPE GRADIENT
  9. C                                              OU GRAFLEXI
  10. C     CH1  =  OBJET DE TYPE  MCHAML  DE SOUS TYPE GRADIENT
  11. C             OU GRAFLEXI, TRANSPOSE DE CHEL
  12. C
  13. C--------------------------------------------------------------------
  14.       IMPLICIT INTEGER(I-N)
  15.  
  16. -INC PPARAM
  17. -INC CCOPTIO
  18. C
  19.       CALL LIROBJ('MCHAML',IPO1,1,IRT1)
  20.       IF(IERR.NE.0) RETURN
  21.       IF(IRT1.EQ.0) GOTO 666
  22. C
  23.       CALL TAGRA(IPO1,IPO2,IRET)
  24.       IF(IRET.EQ.0) RETURN
  25. C
  26.       CALL ECROBJ('MCHAML',IPO2)
  27.       RETURN
  28. C
  29.   666 CONTINUE
  30.       MOTERR(1:8)='MCHAML'
  31.       CALL ERREUR(37)
  32.       RETURN
  33.       END
  34.  
  35.  
  36.  

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