normalize_vector Interface
public interface normalize_vector
単位ベクトルを返す
Module Procedures
private function normalize_vector_dble(a) result(normalized)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| double precision, | intent(in) | :: | a(3) |
Return Value double precision, (3)
private function normalize_vector_real(a) result(normalized)
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real, | intent(in) | :: | a(3) |