| Revisión | 85525edd135cc3f1c2540604f53e89d94db5b555 (tree) |
|---|---|
| Tiempo | 2022-10-25 21:12:42 |
| Autor | Harald Klimach <harald.klimach@dlr....> |
| Commiter | Harald Klimach |
Provide field width to logical edit descriptors.
source/shapes/tem_ellipsoid_module.fpp (diff) source/shapes/tem_sphere_module.fpp (diff)| @@ -186,7 +186,7 @@ | ||
| 186 | 186 | |
| 187 | 187 | write(logunit(1),"(A,3E12.5)") ' origin: ', me%origin |
| 188 | 188 | write(logunit(1),"(A,3E12.5)") ' radius: ', me%radius |
| 189 | - write(logunit(1),"(A,L)") ' only surface: ', me%only_surface | |
| 189 | + write(logunit(1),"(A,L5)") ' only surface: ', me%only_surface | |
| 190 | 190 | |
| 191 | 191 | ! apply transformation to ellipsoid |
| 192 | 192 | if(transform%active) then |
| @@ -180,7 +180,7 @@ | ||
| 180 | 180 | |
| 181 | 181 | write(logunit(1),"(A,3E12.5)") ' origin: ', me%origin |
| 182 | 182 | write(logunit(1),"(A,3E12.5)") ' radius: ', me%radius |
| 183 | - write(logunit(1),"(A,L )") ' only_surface: ', me%only_surface | |
| 183 | + write(logunit(1),"(A,L5 )") ' only_surface: ', me%only_surface | |
| 184 | 184 | |
| 185 | 185 | !apply transformation to sphere |
| 186 | 186 | if(transform%active) then |
Fork