Télécharger bgmo.eso

Retour à la liste

Numérotation des lignes :

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

© Cast3M 2003 - Tous droits réservés.
Mentions légales