Esope source files

   1 : C BGMO      SOURCE    PV        09/03/12    21:15:36     6325           
   2 : C BGCO     SOURCE    MARINO ARROYO      99/05/20          
   3 : C     
   4 :       SUBROUTINE BGMO
   5 :       IMPLICIT INTEGER(I-N)
   6 :       IMPLICIT REAL*8 (A-H,O-Z)
   7 : -INC CCREEL
   8 : -INC CCOPTIO
   9 : 
  10 :       CHARACTER*4 LISM(6)
  11 :       DATA LISM/'COND','DCON','CAPA','DCAP','CHED','CONM'/
  12 : *     
  13 : *     ON LIT LE MOT CLE 
  14 : *
  14 :       CALL LIRMOT(LISM,6,KIKI,0)
  14 :       IF (KIKI.EQ.0) CALL ERREUR(533)
  15 : 
  16 : C     
  17 : C     CHAMELEM
  18 : C     
  18 :       CALL LIROBJ('MCHAML',IPO1,0,IRETOU)
  19 :       IF(IRETOU.EQ.0) GOTO 10
  19 :       CALL LIRREE(T0,0,IRETOU)
  20 :       IF(IRETOU.EQ.0) T0=1.d0
  20 :       CALL LIRREE(X0,0,IRETOU)
  21 :       IF(IRETOU.EQ.0) X0=1.d0
  21 :       CALL BGCHEL(IPO1,KIKI,T0,X0,IPO2)
  21 :       CALL ECROBJ('MCHAML',IPO2)
  22 :       RETURN
  23 : C     
  24 : C     CAS D UN FLOTTANT
  25 : C     
  26 :  10   CONTINUE
  27 : 
  27 :       CALL LIRREE(T,0,IRETOU)
  27 :       IF(IRETOU.EQ.0) CALL ERREUR(533)
  27 :       CALL LIRREE(T0,0,IRETOU)
  28 :       IF(IRETOU.EQ.0) T0=1.d0
  28 :       CALL LIRREE(X0,0,IRETOU)
  29 :       IF(IRETOU.EQ.0) X0=1.d0
  30 :       IF(KIKI.EQ.1) XX=(FBG1(T*T0))/X0
  31 :       IF(KIKI.EQ.2) XX=(FBG2(T*T0))*T0/X0
  32 :       IF(KIKI.EQ.3) XX=(FBG3(T*T0))/X0
  33 :       IF(KIKI.EQ.4) XX=(FBG4(T*T0))*T0/X0
  34 :       IF(KIKI.EQ.5) XX=FBG5(T*T0)
  35 :       IF(KIKI.EQ.6) XX=(FBG6(T))/X0
  36 : 
  37 : 
  37 :       CALL ECRREE(XX)
  38 : 
  39 : 
  40 :       RETURN
  41 :       END
  42 :  
  43 :  
  44 :