Télécharger la plaquette Cast3M


fr en

Télécharger combyl.eso

Retour à la liste

Numérotation des lignes : 

combyl

  1. C COMBYL    SOURCE    BP208322  15/06/26    21:15:07     8562
  2. c       SUBROUTINE COMBYL(ITACH,ITAFL,IRETT)
  3.       SUBROUTINE COMBYL(ITACH,ITAFL,N,IRETT)
  4. *______________________________________________________________________
  5. *
  6. *    CE SUBROUTINE EFFECTUE LA COMBINAISON LINEAIRE DES CHAMELEM
  7. *    CONTENUS DANS ITACH, AVEC LES FLOTTANTS CONTENUS DANS ITAFL
  8. *    LE RESULTAT EST UN CHAMELEM,MIS DANS IRETT
  9. *    ATTENTION : TAFL EN DOUBLE PRECISION
  10. *
  11. *    PASSAGE AUX NOUVEAU CHAMELEM PAR JM CAMPENON LE 01/91
  12. *
  13. *----------------------------------------------------------------------
  14.       IMPLICIT INTEGER(I-N)
  15.       IMPLICIT REAL*8 (A-H,O-Z)
  16. *
  17.       SEGMENT ITACH(0)
  18.       SEGMENT/ITAFL/(TAFL(0)*D)
  19. *
  20.       IRETT=0
  21. c       SEGACT ITACH,ITAFL
  22. *
  23. *   BOUCLE SUR LES CHAMELEMS
  24. *
  25. c       NCHAM=ITACH(/1)
  26.       NCHAM=N
  27.       DO 201 ICHAM=1,NCHAM
  28.          IPCHAM=ITACH(ICHAM)
  29.          VAL=TAFL(ICHAM)
  30. *
  31.          CALL MUCHEL(IPCHAM,VAL,IRET,1)
  32.          IF(IRET.EQ.0) GO TO 298
  33.          IF(ICHAM.EQ.1) THEN
  34.             IRETT=IRET
  35.          ELSE
  36.             CALL ADCHEL(IRETT,IRET,IRETOU,1)
  37.             CALL DTCHAM(IRET)
  38.             IF(IRETOU.EQ.0) GO TO 298
  39.             CALL DTCHAM(IRETT)
  40.             IRETT=IRETOU
  41.          ENDIF
  42. 201   CONTINUE
  43.       GO TO 299
  44. *
  45.  298  IF(IRETT.NE.0) CALL DTCHAM(IRETT)
  46.       IRETT=0
  47. *
  48.  299  CONTINUE
  49. c       SEGDES ITAFL
  50. c       SEGDES ITACH
  51.       RETURN
  52.       END
  53.  
  54.  
  55.  

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