Parent Directory
| 
Revision Log
| 
Patch
| revision 43 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 |