fossil_thickness_bodies
Source: src/tests/fossil_thickness_bodies.f90
Dependencies
Contents
Variables
| Name | Type | Attributes | Description |
|---|---|---|---|
PI | real(kind=R8P) | parameter |
Subroutines
make_boxes
fortran
subroutine make_boxes(lo, hi, n, gap, ff)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
lo | real(kind=R8P) | in | ||
hi | real(kind=R8P) | in | ||
n | integer(kind=I4P) | in | ||
gap | real(kind=R8P) | in | ||
ff | type(facet_object) | out | allocatable |
Call graph
make_sphere
fortran
subroutine make_sphere(levels, ff)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
levels | integer(kind=I4P) | in | ||
ff | type(facet_object) | out | allocatable |
Call graph
naca_half_thickness
Attributes: pure
fortran
subroutine naca_half_thickness(tt, x, yt, dyt)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
tt | real(kind=R8P) | in | ||
x | real(kind=R8P) | in | ||
yt | real(kind=R8P) | out | ||
dyt | real(kind=R8P) | out |
Call graph
make_wing
fortran
subroutine make_wing(tt, np, span, nz, ff)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
tt | real(kind=R8P) | in | ||
np | integer(kind=I4P) | in | ||
span | real(kind=R8P) | in | ||
nz | integer(kind=I4P) | in | ||
ff | type(facet_object) | out | allocatable |
Call graph
tri
fortran
subroutine tri(ft, p1, p2, p3, inner)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
ft | type(facet_object) | inout | ||
p1 | real(kind=R8P) | in | ||
p2 | real(kind=R8P) | in | ||
p3 | real(kind=R8P) | in | ||
inner | real(kind=R8P) | in |
Call graph