| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| type(Elasticity_) | :: | elast | ||||
| type(IO_) | :: | f | ||||
| integer(kind=int32) | :: | Freq | ||||
| integer(kind=int32) | :: | i | ||||
| real(kind=real64), | parameter | :: | Density(1:2) | = | [1.8d0, 1.8d0] | |
| real(kind=real64), | parameter | :: | Vs(1:2) | = | [250.0d0, 170.0d0] | |
| real(kind=real64) | :: | ans(10) | ||||
| real(kind=real64) | :: | exact_value(10) |