全飛沫に対して、基準点をbefore_dGroupCenter、回転軸をrotation_axisとして、反時計回りにphi[rad]だけ回転させる。 回転後の飛沫中心をafter_dGroupCenterに平行移動させる。
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| type(virusDroplet_t), | allocatable | :: | droplets(:) | |||
| character(len=50), | allocatable | :: | caseName_array(:) | |||
| character(len=:), | allocatable | :: | caseName | |||
| character(len=15) | :: | fnameDecoration | ||||
| double precision | :: | before_dGroupCenter(3) | ||||
| double precision | :: | after_dGroupCenter(3) | ||||
| character(len=1) | :: | rotation_axis | ||||
| double precision | :: | rotation_angle_deg | ||||
| integer | :: | i | ||||
| integer | :: | n_unit | ||||
| double precision, | parameter | :: | PI | = | acos(-1.d0) | |
| double precision | :: | vec(3) | ||||
| double precision | :: | center_displacement(3) | ||||
| double precision | :: | phi |