Parent Directory | Revision Log | Patch
revision 30 by guez, Thu Apr 1 09:07:28 2010 UTC | revision 44 by guez, Wed Apr 13 12:29:18 2011 UTC | |
---|---|---|
# | Line 51 C | Line 51 C |
51 | ||
52 | INTEGER histid, nq | INTEGER histid, nq |
53 | REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) | REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) |
54 | REAL teta(ip1jmp1*llm),phi(ip1jmp1,llm),ppk(ip1jmp1*llm) | REAL, intent(in):: teta(ip1jmp1*llm) |
55 | real phi(ip1jmp1,llm),ppk(ip1jmp1*llm) | |
56 | REAL ps(ip1jmp1),masse(ip1jmp1,llm) | REAL ps(ip1jmp1),masse(ip1jmp1,llm) |
57 | REAL phis(ip1jmp1) | REAL phis(ip1jmp1) |
58 | REAL q(ip1jmp1,llm,nq) | REAL q(ip1jmp1,llm,nq) |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |