Parent Directory | Revision Log | Patch
trunk/libf/dyn3d/Dissipation/inidissip.f90 revision 66 by guez, Thu Sep 20 13:00:41 2012 UTC | trunk/dyn3d/Dissipation/inidissip.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC | |
---|---|---|
# | Line 45 contains | Line 45 contains |
45 | ||
46 | PRINT *, 'Call sequence information: inidissip' | PRINT *, 'Call sequence information: inidissip' |
47 | call random_seed(size=seed_size) | call random_seed(size=seed_size) |
48 | call random_seed(put=(/(0, ii = 1, seed_size)/)) | call random_seed(put=(/(1, ii = 1, seed_size)/)) |
49 | ||
50 | PRINT *, 'Calcul des valeurs propres de divgrad' | PRINT *, 'Calcul des valeurs propres de divgrad' |
51 | deltap = 1. | deltap = 1. |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |