correcting function return type, indentation

This commit is contained in:
Daniel Otto de Mentock 2022-11-25 15:12:07 +01:00
parent b96576ce93
commit a2f898a94c
3 changed files with 3 additions and 3 deletions

View File

@ -205,7 +205,7 @@ end function prec_bytesToC_FLOAT
pure function prec_bytesToC_DOUBLE(bytes) pure function prec_bytesToC_DOUBLE(bytes)
integer(C_SIGNED_CHAR), dimension(:), intent(in) :: bytes !< byte-wise representation of a C_DOUBLE array integer(C_SIGNED_CHAR), dimension(:), intent(in) :: bytes !< byte-wise representation of a C_DOUBLE array
real(pReal), dimension(size(bytes,kind=pI64)/(storage_size(0._C_DOUBLE,pI64)/8_pI64)) :: & real(C_DOUBLE), dimension(size(bytes,kind=pI64)/(storage_size(0._C_DOUBLE,pI64)/8_pI64)) :: &
prec_bytesToC_DOUBLE prec_bytesToC_DOUBLE