#include "dimensions.h"
#include "paramet.h"
#include "logic.h"
Go to the source code of this file.
|
subroutine | dteta1 (teta, pbaru, pbarv, dteta) |
|
subroutine dteta1 |
( |
real, dimension( ip1jmp1,llm ) |
teta, |
|
|
real, dimension( ip1jmp1,llm ) |
pbaru, |
|
|
real, dimension( ip1jm,llm) |
pbarv, |
|
|
real, dimension( ip1jmp1,llm ) |
dteta |
|
) |
| |