public subroutine foo(X, ns, S, F, dF, dFdS)
Function that needs to be solved at each envelope point
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
real(kind=pr),
|
intent(in) |
|
|
:: |
X(:) |
|
|
integer,
|
intent(in) |
|
|
:: |
ns |
|
|
real(kind=pr),
|
intent(in) |
|
|
:: |
S |
|
|
real(kind=pr),
|
intent(out) |
|
|
:: |
F(:) |
|
|
real(kind=pr),
|
intent(out) |
|
|
:: |
dF(:,:) |
|
|
real(kind=pr),
|
intent(out) |
|
|
:: |
dFdS(:) |
|
Variables
| Type |
Visibility | Attributes |
|
Name |
| Initial | |
|
real(kind=pr),
|
public |
|
:: |
K(size(X)-2) |
|
|
|
|
real(kind=pr),
|
public |
|
:: |
P |
|
|
|
|
real(kind=pr),
|
public |
|
:: |
T |
|
|
|
|
real(kind=pr),
|
public |
|
:: |
dlnphi_dn_y(size(X)-2,size(X)-2) |
|
|
|
|
real(kind=pr),
|
public |
|
:: |
dlnphi_dn_z(size(X)-2,size(X)-2) |
|
|
|
|
real(kind=pr),
|
public |
|
:: |
dlnphi_dp_y(size(X)-2) |
|
|
|
|
real(kind=pr),
|
public |
|
:: |
dlnphi_dp_z(size(X)-2) |
|
|
|
|
real(kind=pr),
|
public |
|
:: |
dlnphi_dt_y(size(X)-2) |
|
|
|
|
real(kind=pr),
|
public |
|
:: |
dlnphi_dt_z(size(X)-2) |
|
|
|
|
integer,
|
public |
|
:: |
i |
|
|
|
|
integer,
|
public |
|
:: |
j |
|
|
|
|
character(len=14),
|
public |
|
:: |
kind_y |
|
|
|
|
character(len=14),
|
public |
|
:: |
kind_z |
|
|
|
|
real(kind=pr),
|
public |
|
:: |
lnPhi_y(size(X)-2) |
|
|
|
|
real(kind=pr),
|
public |
|
:: |
lnPhi_z(size(X)-2) |
|
|
|
|
integer,
|
public |
|
:: |
nc |
|
|
|
|
real(kind=pr),
|
public |
|
:: |
y(size(X)-2) |
|
|
|
|
real(kind=pr),
|
public |
|
:: |
z(size(X)-2) |
|
|
|