1 : C COSINU SOURCE BP208322 12/07/10 21:15:04 7432 2 : C COSINUS 3 : C 4 : SUBROUTINE COSINU 5 : IMPLICIT INTEGER(I-N) 6 : IMPLICIT REAL*8 (A-H,O-Z) 7 : 8 : -INC CCREEL 9 : -INC CCOPTIO 10 : C 11 : C CAS DU MCHAML 12 : C 12 : CALL LIROBJ('MCHAML',IPO1,0,IRETOU) 13 : IF (IRETOU.EQ.0) GOTO 10 13 : CALL OPCHEL(IPO1,1,IPO2) 13 : CALL ECROBJ('MCHAML',IPO2) 14 : RETURN 15 : C 16 : C CAS DU CHPOINT 17 : C 18 : 10 CONTINUE 18 : CALL LIROBJ('CHPOINT ',IPO1,0,IRETOU) 19 : IF(IRETOU.EQ.0) GOTO 20 19 : CALL OPCHPO(IPO1,1,IPO2) 19 : CALL ECROBJ('CHPOINT ',IPO2) 20 : RETURN 21 : C 22 : C CAS D UN LISTREEL 23 : C 24 : 20 CONTINUE 24 : CALL LIROBJ('LISTREEL',IPO1,0,IRETOU) 25 : IF(IRETOU.EQ.0) GOTO 30 25 : CALL OPLREE(IPO1,1,IPO2) 25 : CALL ECROBJ('LISTREEL',IPO2) 26 : RETURN 27 : C 28 : C CAS DU FLOTTANT 29 : C 30 : 30 CONTINUE 30 : CALL LIRREE(XR,0,IRETOU) 31 : IF(IRETOU.EQ.0) GO TO 40 31 : CALL ECRREE(COS(XR*XPI/180.D0)) 32 : RETURN 33 : C 34 : C EVOLUTION 35 : C 36 : 40 CONTINUE 36 : CALL LIROBJ('EVOLUTIO',IPO1,0,IRETOU) 37 : IF (IRETOU.EQ.0) GO TO 50 37 : CALL OPEVOL(IPO1,1,IPO2) 37 : CALL ECROBJ('EVOLUTIO',IPO2) 38 : RETURN 39 : C 40 : C 41 : C PAS D OPERANDE CORRECTE TROUVE 42 : C 42 : 50 CALL QUETYP(MOTERR(1:8),0,IRETOU) 43 : IF(IRETOU.NE.0) THEN 43 : CALL ERREUR (39) 44 : ELSE 44 : CALL ERREUR(533) 45 : ENDIF 46 : RETURN 47 : END 48 : 49 : 50 :
© Cast3M 2003 - All rights reserved.
Disclaimer