$OMP parallel do $OMP end parallel do $OMP parallel do $OMP end parallel do
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| type(FEMSolver_) | :: | solver | ||||
| type(FEMDomain_), | target | :: | domains(1) | |||
| type(IO_) | :: | f | ||||
| integer(kind=int32) | :: | i | ||||
| real(kind=real64) | :: | Vs | ||||
| real(kind=real64) | :: | t | ||||
| real(kind=real64) | :: | dt | ||||
| real(kind=real64) | :: | E_al | ||||
| real(kind=real64), | allocatable | :: | Mode_U(:) | |||
| real(kind=real64), | allocatable | :: | mode_Ut(:) | |||
| real(kind=real64), | allocatable | :: | freq(:) | |||
| real(kind=real64), | allocatable | :: | MassMatDiag(:) | |||
| real(kind=real64), | allocatable | :: | MassMatInvDiag(:) | |||
| real(kind=real64), | allocatable | :: | eigen_vectors(:,:) | |||
| real(kind=real64), | allocatable | :: | eigen_value(:) |