correcting function return type, indentation
This commit is contained in:
parent
b96576ce93
commit
a2f898a94c
|
@ -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
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue