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 32 SUBROUTINE advtrac(pbaru,pbarv,p,masse,q | Line 32 SUBROUTINE advtrac(pbaru,pbarv,p,masse,q |
32 | INTEGER iapptrac | INTEGER iapptrac |
33 | REAL pbaru(ip1jmp1,llm), pbarv(ip1jm,llm) | REAL pbaru(ip1jmp1,llm), pbarv(ip1jm,llm) |
34 | REAL q(ip1jmp1,llm,nqmx), masse(ip1jmp1,llm) | REAL q(ip1jmp1,llm,nqmx), masse(ip1jmp1,llm) |
35 | REAL p(ip1jmp1,llmp1), teta(ip1jmp1,llm) | REAL, intent(in):: p(ip1jmp1,llmp1) |
36 | real teta(ip1jmp1,llm) | |
37 | REAL pk(ip1jmp1,llm) | REAL pk(ip1jmp1,llm) |
38 | ||
39 | !------------------------------------------------------------- | !------------------------------------------------------------- |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |