Repository for the seeder mesh generator. Now found at https://github.com/apes-suite/seeder
| Revision | dd40cab6dba5ce21076f1383b2460cc5c3bba694 (tree) |
|---|---|
| Time | 2017-02-21 01:30:00 |
| Author | Harald Klimach <harald@klim...> |
| Commiter | Harald Klimach |
Do not use preceding documentation lines inline.
source/sdr_sphere_module.fpp (diff)| @@ -32,8 +32,8 @@ | ||
| 32 | 32 | |
| 33 | 33 | !> type contains sphere information |
| 34 | 34 | type sdr_sphere_type |
| 35 | - real(kind=rk) :: origin(3) !> origin of the sphere | |
| 36 | - real(kind=rk) :: radius !> radius of the sphere | |
| 35 | + real(kind=rk) :: origin(3) !< origin of the sphere | |
| 36 | + real(kind=rk) :: radius !< radius of the sphere | |
| 37 | 37 | !> To choose what to do with intersection of this object |
| 38 | 38 | !! if only_surface = true than the only the surface of the object |
| 39 | 39 | !! is intersected |
| @@ -46,11 +46,11 @@ | ||
| 46 | 46 | |
| 47 | 47 | contains |
| 48 | 48 | |
| 49 | - ! ***************************************************************************** | |
| 49 | + ! **************************************************************************** | |
| 50 | 50 | !> Load sphere information from config file. |
| 51 | 51 | subroutine sdr_load_sphere(sphArray, spaObjArray, attr_pos, transform, & |
| 52 | 52 | & conf, thandle ) |
| 53 | - ! --------------------------------------------------------------------------! | |
| 53 | + ! -------------------------------------------------------------------------! | |
| 54 | 54 | !inferface variables |
| 55 | 55 | !> growing array of spheres |
| 56 | 56 | type(grw_sphereArray_type), intent(inout) :: sphArray |
| @@ -63,11 +63,11 @@ | ||
| 63 | 63 | !> lua state |
| 64 | 64 | type(flu_state) :: conf |
| 65 | 65 | integer, intent(in) :: thandle !< handle for canonical objects |
| 66 | - ! --------------------------------------------------------------------------! | |
| 66 | + ! -------------------------------------------------------------------------! | |
| 67 | 67 | ! local varaibles |
| 68 | 68 | integer :: sph_handle, sph_subHandle |
| 69 | 69 | integer :: iObj, nObjects |
| 70 | - ! --------------------------------------------------------------------------! | |
| 70 | + ! -------------------------------------------------------------------------! | |
| 71 | 71 | |
| 72 | 72 | write(logunit(1),*) 'Loading sphere: ' |
| 73 | 73 |
| @@ -98,13 +98,13 @@ | ||
| 98 | 98 | |
| 99 | 99 | |
| 100 | 100 | end subroutine sdr_load_sphere |
| 101 | - ! ***************************************************************************** | |
| 101 | + ! **************************************************************************** | |
| 102 | 102 | |
| 103 | - ! ***************************************************************************** | |
| 103 | + ! **************************************************************************** | |
| 104 | 104 | !> This routine single sphere from object table |
| 105 | 105 | subroutine sdr_load_sphere_single(sphArray, spaObjArray, attr_pos, transform,& |
| 106 | 106 | & conf, thandle ) |
| 107 | - ! --------------------------------------------------------------------------! | |
| 107 | + ! -------------------------------------------------------------------------! | |
| 108 | 108 | !inferface variables |
| 109 | 109 | !> growing array of spheres |
| 110 | 110 | type(grw_sphereArray_type), intent(inout) :: sphArray |
| @@ -117,11 +117,11 @@ | ||
| 117 | 117 | !> lua state |
| 118 | 118 | type(flu_state) :: conf |
| 119 | 119 | integer, intent(in) :: thandle !< handle for canonical objects |
| 120 | - ! --------------------------------------------------------------------------! | |
| 120 | + ! -------------------------------------------------------------------------! | |
| 121 | 121 | integer :: iError, vError(3), errFatal(3) |
| 122 | 122 | type(sdr_sphere_type) :: loc_sphere |
| 123 | 123 | type(sdr_spatialObj_type) :: spatialObj |
| 124 | - ! --------------------------------------------------------------------------! | |
| 124 | + ! -------------------------------------------------------------------------! | |
| 125 | 125 | errFatal = aoterr_fatal |
| 126 | 126 | |
| 127 | 127 | ! read origin of sphere |
| @@ -190,12 +190,12 @@ | ||
| 190 | 190 | ! **************************************************************************** |
| 191 | 191 | !> This function checks intesection of solid cube and sphere |
| 192 | 192 | function sphereCubeOverlap(sphere, cube) result(overlap) |
| 193 | - ! --------------------------------------------------------------------------! | |
| 194 | - !inferface variables | |
| 193 | + ! -------------------------------------------------------------------------! | |
| 194 | + !interface variables | |
| 195 | 195 | type(sdr_sphere_type), intent(in) :: sphere !< spacer geometry data |
| 196 | 196 | type(sdr_cube_type), intent(in) :: cube |
| 197 | 197 | logical :: overlap !< return value |
| 198 | - ! --------------------------------------------------------------------------! | |
| 198 | + ! -------------------------------------------------------------------------! | |
| 199 | 199 | if(sphere%only_surface) then |
| 200 | 200 | overlap = hollowSphereCubeOverlap(sphere, cube) |
| 201 | 201 | else |
| @@ -212,17 +212,17 @@ | ||
| 212 | 212 | !! http://tog.acm.org/resources/GraphicsGems/gems/BoxSphere.c |
| 213 | 213 | !! |
| 214 | 214 | function hollowSphereCubeOverlap(sphere, cube) result(overlap) |
| 215 | - ! --------------------------------------------------------------------------! | |
| 215 | + ! -------------------------------------------------------------------------! | |
| 216 | 216 | !inferface variables |
| 217 | 217 | type(sdr_sphere_type), intent(in) :: sphere !< spacer geometry data |
| 218 | 218 | type(sdr_cube_type), intent(in) :: cube |
| 219 | 219 | logical :: overlap !< return value |
| 220 | - ! --------------------------------------------------------------------------! | |
| 220 | + ! -------------------------------------------------------------------------! | |
| 221 | 221 | ! local variables |
| 222 | 222 | real(kind=rk) :: rsqr,a, b |
| 223 | 223 | integer :: i |
| 224 | 224 | real(kind=rk) :: dmin, dmax, cube_max(3) |
| 225 | - ! --------------------------------------------------------------------------! | |
| 225 | + ! -------------------------------------------------------------------------! | |
| 226 | 226 | !minimum distance |
| 227 | 227 | dmin = 0.0_rk |
| 228 | 228 | !maximum distance |
| @@ -256,17 +256,17 @@ | ||
| 256 | 256 | !! http://tog.acm.org/resources/GraphicsGems/gems/BoxSphere.c |
| 257 | 257 | !! |
| 258 | 258 | function solidSphereCubeOverlap(sphere, cube) result(overlap) |
| 259 | - ! --------------------------------------------------------------------------! | |
| 259 | + ! -------------------------------------------------------------------------! | |
| 260 | 260 | !inferface variables |
| 261 | 261 | type(sdr_sphere_type), intent(in) :: sphere !< spacer geometry data |
| 262 | 262 | type(sdr_cube_type), intent(in) :: cube |
| 263 | 263 | logical :: overlap !< return value |
| 264 | - ! --------------------------------------------------------------------------! | |
| 264 | + ! -------------------------------------------------------------------------! | |
| 265 | 265 | ! local variables |
| 266 | 266 | real(kind=rk) :: rsqr |
| 267 | 267 | integer :: i |
| 268 | 268 | real(kind=rk) :: dmin, cube_max(3) |
| 269 | - ! --------------------------------------------------------------------------! | |
| 269 | + ! -------------------------------------------------------------------------! | |
| 270 | 270 | !minimum distance |
| 271 | 271 | dmin = 0.0_rk |
| 272 | 272 |
Fork