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