C COSINU    SOURCE    BP208322  12/07/10    21:15:04     7432           
C  COSINUS
C     
      SUBROUTINE COSINU
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

-INC CCREEL
-INC CCOPTIO
C     
C     CAS DU MCHAML
C     
      CALL LIROBJ('MCHAML',IPO1,0,IRETOU)
      IF (IRETOU.EQ.0) GOTO 10
      CALL OPCHEL(IPO1,1,IPO2)
      CALL ECROBJ('MCHAML',IPO2)
      RETURN
C     
C     CAS DU CHPOINT
C     
 10   CONTINUE
      CALL LIROBJ('CHPOINT ',IPO1,0,IRETOU)
      IF(IRETOU.EQ.0) GOTO 20
      CALL OPCHPO(IPO1,1,IPO2)
      CALL ECROBJ('CHPOINT ',IPO2)
      RETURN
C     
C     CAS D UN LISTREEL
C     
 20   CONTINUE
      CALL LIROBJ('LISTREEL',IPO1,0,IRETOU)
      IF(IRETOU.EQ.0) GOTO 30
      CALL OPLREE(IPO1,1,IPO2)
      CALL ECROBJ('LISTREEL',IPO2)
      RETURN
C     
C     CAS DU FLOTTANT
C     
 30   CONTINUE
      CALL LIRREE(XR,0,IRETOU)
      IF(IRETOU.EQ.0) GO TO 40
      CALL ECRREE(COS(XR*XPI/180.D0))
      RETURN
C                                                                               
C     EVOLUTION                                                                  
C                                                                               
  40  CONTINUE                                                                  
      CALL LIROBJ('EVOLUTIO',IPO1,0,IRETOU)                                     
      IF (IRETOU.EQ.0) GO TO 50                                                 
      CALL OPEVOL(IPO1,1,IPO2)                                                  
      CALL ECROBJ('EVOLUTIO',IPO2)                                              
      RETURN                                                                    
C                                                                               
C     
C    PAS D OPERANDE CORRECTE TROUVE
C     
 50   CALL QUETYP(MOTERR(1:8),0,IRETOU)
      IF(IRETOU.NE.0) THEN
         CALL ERREUR (39)
      ELSE
         CALL ERREUR(533)
      ENDIF
      RETURN
      END