From fdc148bfdb9ad35038594b7928b135b531490aa6 Mon Sep 17 00:00:00 2001 From: jalvesz Date: Mon, 1 Apr 2024 18:37:57 +0200 Subject: [PATCH] typo --- src/fsparse_constants.f90 | 2 +- src/fsparse_constants.fypp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/fsparse_constants.f90 b/src/fsparse_constants.f90 index 32384a2..71f1aa0 100644 --- a/src/fsparse_constants.f90 +++ b/src/fsparse_constants.f90 @@ -4,7 +4,7 @@ module fsparse_constants private public :: hp, sp, dp, xdp, qp, int8, int16, int32, int64 - !> Extended double precision real numbers + !> half precision real numbers integer, parameter :: hp = -1 !> Single precision real numbers diff --git a/src/fsparse_constants.fypp b/src/fsparse_constants.fypp index 2baf494..d42fbdd 100644 --- a/src/fsparse_constants.fypp +++ b/src/fsparse_constants.fypp @@ -5,7 +5,7 @@ module fsparse_constants private public :: hp, sp, dp, xdp, qp, int8, int16, int32, int64 - !> Extended double precision real numbers + !> half precision real numbers integer, parameter :: hp = #{if WITH_HP}#selected_real_kind(3)#{else}#-1#{endif}# !> Single precision real numbers