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. -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. *
  15. CALL LIRMOT(LISM,6,KIKI,0)
  16. IF (KIKI.EQ.0) CALL ERREUR(533)
  17.  
  18. C
  19. C CHAMELEM
  20. C
  21. CALL LIROBJ('MCHAML ',IPO1,0,IRETOU)
  22. IF(IRETOU.EQ.0) GOTO 10
  23.  
  24. CALL ACTOBJ('MCHAML ',IPO1,1)
  25. CALL LIRREE(T0,0,IRETOU)
  26. IF(IRETOU.EQ.0) T0=1.d0
  27. CALL LIRREE(X0,0,IRETOU)
  28. IF(IRETOU.EQ.0) X0=1.d0
  29. CALL BGCHEL(IPO1,KIKI,T0,X0,IPO2)
  30. CALL ACTOBJ('MCHAML ',IPO2,1)
  31. CALL ECROBJ('MCHAML ',IPO2)
  32. RETURN
  33.  
  34. C
  35. C CAS D UN FLOTTANT
  36. C
  37. 10 CONTINUE
  38.  
  39. CALL LIRREE(T,0,IRETOU)
  40. IF(IRETOU.EQ.0) CALL ERREUR(533)
  41. CALL LIRREE(T0,0,IRETOU)
  42. IF(IRETOU.EQ.0) T0=1.d0
  43. CALL LIRREE(X0,0,IRETOU)
  44. IF(IRETOU.EQ.0) X0=1.d0
  45. IF(KIKI.EQ.1) XX=(FBG1(T*T0))/X0
  46. IF(KIKI.EQ.2) XX=(FBG2(T*T0))*T0/X0
  47. IF(KIKI.EQ.3) XX=(FBG3(T*T0))/X0
  48. IF(KIKI.EQ.4) XX=(FBG4(T*T0))*T0/X0
  49. IF(KIKI.EQ.5) XX=FBG5(T*T0)
  50. IF(KIKI.EQ.6) XX=(FBG6(T))/X0
  51.  
  52.  
  53. CALL ECRREE(XX)
  54.  
  55. END
  56.  
  57.  
  58.  

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