Parent Directory
|
Revision Log
|
Patch
trunk/libf/phylmd/zilch.f revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC | trunk/phylmd/zilch.f revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC | |
---|---|---|
# | Line 7 c Zero the real array x dimensioned m. | Line 7 c Zero the real array x dimensioned m. |
7 | c | c |
8 | implicit none | implicit none |
9 | c | c |
10 | integer m,i | integer, intent(in):: m |
11 | integer i | |
12 | real x(m) | real x(m) |
13 | do 1 i=1,m | do 1 i=1,m |
14 | x(i)= 0.0 | x(i)= 0.0 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |