Parent Directory | Revision Log | Patch
revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC | revision 43 by guez, Fri Apr 8 12:43:31 2011 UTC | |
---|---|---|
# | Line 29 c | Line 29 c |
29 | c======================================================================= | c======================================================================= |
30 | c | c |
31 | ||
32 | REAL teta( ip1jmp1,llm ),pkf( ip1jmp1,llm ) ,bern( ip1jmp1,llm ), | REAL, intent(in):: teta( ip1jmp1,llm ) |
33 | real pkf( ip1jmp1,llm ) ,bern( ip1jmp1,llm ), | |
34 | * du( ip1jmp1,llm ), dv( ip1jm,llm ) | * du( ip1jmp1,llm ), dv( ip1jm,llm ) |
35 | INTEGER l,ij | INTEGER l,ij |
36 | c | c |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |