Télécharger mgrain.eso

Retour à la liste

Numérotation des lignes :

  1. C MGRAIN SOURCE CHAT 05/01/13 01:44:35 5004
  2. SUBROUTINE MGRAIN(XMAT,TURE0,XMATF,TUREF)
  3. *------------------------------------------------
  4. * modele croissance de grain MARTINEZ 1999, CEREM
  5. *------------------------------------------------
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8(A-H,O-Z)
  8. -INC CCOPTIO
  9. DIMENSION XMAT(*),TURE0(*),XMATF(*),TUREF(*)
  10.  
  11. c write(6,*) xmat(1),xmat(2),xmat(3),xmat(4),xmat(5),xmat(6)
  12. c write(6,*) ture0(1),turef(1)
  13.  
  14. RETURN
  15. END
  16.  
  17.  

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