Télécharger la plaquette Cast3M


fr en

Télécharger bgmo.eso

Retour à la liste

Numérotation des lignes : 

bgmo

  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