9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-10-12 02:41:30 +02:00
qp2/src/utils/format_w_error.irp.f

74 lines
2.1 KiB
Fortran
Raw Normal View History

2023-02-08 14:44:49 +01:00
subroutine format_w_error(value,error,size_nb,max_nb_digits,format_value,str_error)
implicit none
2023-04-17 16:24:07 +02:00
2023-02-08 14:44:49 +01:00
BEGIN_DOC
! Format for double precision, value(error)
END_DOC
! in
! | value | double precision | value... |
! | error | double precision | error... |
! | size_nb | integer | X in FX.Y |
! | max_nb_digits | integer | Max Y in FX.Y |
! out
! | format_value | character | string FX.Y for the format |
2023-04-17 16:24:07 +02:00
! | str_error | character | string of the error |
2023-02-08 14:44:49 +01:00
! internal
! | str_size | character | size in string format |
! | nb_digits | integer | number of digits Y in FX.Y depending of the error |
! | str_nb_digits | character | nb_digits in string format |
! | str_exp | character | string of the value in exponential format |
! in
double precision, intent(in) :: error, value
integer, intent(in) :: size_nb, max_nb_digits
! out
character(len=20), intent(out) :: str_error, format_value
! internal
character(len=20) :: str_size, str_nb_digits, str_exp
integer :: nb_digits
2023-04-17 17:03:16 +02:00
call lock_io()
2023-02-08 14:44:49 +01:00
! max_nb_digit: Y max
! size_nb = Size of the double: X (FX.Y)
write(str_size,'(I3)') size_nb
! Error
2023-07-04 22:17:31 +02:00
write(str_exp,'(ES20.0)') error
2023-02-08 14:44:49 +01:00
str_error = trim(adjustl(str_exp))
2023-04-17 16:24:07 +02:00
2023-02-08 14:44:49 +01:00
! Number of digit: Y (FX.Y) from the exponent
str_nb_digits = str_exp(19:20)
read(str_nb_digits,*) nb_digits
2023-04-17 16:24:07 +02:00
2023-02-08 14:44:49 +01:00
! If the error is 0d0
2023-04-17 16:24:07 +02:00
if (error <= 1d-16) then
2023-02-08 14:44:49 +01:00
write(str_nb_digits,*) max_nb_digits
endif
2023-04-17 16:24:07 +02:00
! If the error is too small
2023-02-08 14:44:49 +01:00
if (nb_digits > max_nb_digits) then
write(str_nb_digits,*) max_nb_digits
str_error(1:1) = '0'
endif
! If the error is too big (>= 0.5)
if (error >= 0.5d0) then
str_nb_digits = '1'
str_error(1:1) = '*'
endif
! FX.Y,A1,A1,A1 for value(str_error)
!string = 'F'//trim(adjustl(str_size))//'.'//trim(adjustl(str_nb_digits))//',A1,A1,A1'
2023-04-17 16:24:07 +02:00
! FX.Y just for the value
2023-02-08 14:44:49 +01:00
format_value = 'F'//trim(adjustl(str_size))//'.'//trim(adjustl(str_nb_digits))
2023-04-17 17:03:16 +02:00
call unlock_io()
2023-02-08 14:44:49 +01:00
end