solve
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| type(FEMDomain_) | :: | cube(2) | ||||
| type(FEMSolver_) | :: | solver | ||||
| integer(kind=int32), | allocatable | :: | FixBoundary(:) | |||
| integer(kind=int32), | allocatable | :: | Overset_Elements(:,:) | |||
| integer(kind=int32) | :: | ElementID | ||||
| integer(kind=int32) | :: | DomainID | ||||
| integer(kind=int32) | :: | i | ||||
| type(IO_) | :: | f | ||||
| type(MPI_) | :: | mpid | ||||
| integer(kind=int32), | allocatable | :: | row(:) | |||
| integer(kind=int32), | allocatable | :: | col(:) | |||
| real(kind=real64), | allocatable | :: | val(:) | |||
| real(kind=real64), | allocatable | :: | all_disp(:) | |||
| integer(kind=int32) | :: | nn | = | 1000000.0 |