Esope source files

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