Parent Directory | Revision Log | Patch
revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC | revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC | |
---|---|---|
# | Line 36 c ---------- | Line 36 c ---------- |
36 | REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm) | REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm) |
37 | REAL q(ip1jmp1,llm) | REAL q(ip1jmp1,llm) |
38 | REAL w(ip1jmp1,llm),pdt | REAL w(ip1jmp1,llm),pdt |
39 | REAL p(ip1jmp1,llmp1),teta(ip1jmp1,llm),pk(ip1jmp1,llm) | REAL, intent(in):: p(ip1jmp1,llmp1) |
40 | real teta(ip1jmp1,llm),pk(ip1jmp1,llm) | |
41 | c | c |
42 | c Local | c Local |
43 | c --------- | c --------- |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |