Télécharger bgmo.eso

Retour à la liste

Numérotation des lignes :

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

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