Go to the source code of this file.
◆ dt11law()
| subroutine dt11law |
( |
| deltax, |
|
|
| dtx ) |
Definition at line 28 of file dt11law.F.
29
30
31
32
33
34
35
36
37#include "implicit_f.inc"
38
39
40
41#include "vect01_c.inc"
42
43
44
46 . deltax(*), dtx(*)
47 INTEGER I
48
49 DO i=lft,llt
50 deltax(i)=ep03
51 dtx(i) = deltax(i)
52 END DO
53
54 RETURN