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 :
© Cast3M 2003 - All rights reserved.
Disclaimer