33 |
c Arguments: |
c Arguments: |
34 |
c ---------- |
c ---------- |
35 |
REAL masse(ip1jmp1,llm),pente_max |
REAL masse(ip1jmp1,llm),pente_max |
36 |
REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm) |
REAL, intent(in):: 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) |
39 |
REAL p(ip1jmp1,llmp1),teta(ip1jmp1,llm),pk(ip1jmp1,llm) |
real, intent(in):: pdt |
40 |
|
REAL, intent(in):: p(ip1jmp1,llmp1) |
41 |
|
real teta(ip1jmp1,llm),pk(ip1jmp1,llm) |
42 |
c |
c |
43 |
c Local |
c Local |
44 |
c --------- |
c --------- |