anything_to_bytes Interface

anything_to_bytes(3f) - [M_anything] convert standard types to bytes (character(len=1):: array(:))
(LICENSE:MIT)

function anything_to_bytes(anything) result(chars)

 class(*),intent(in)  :: anything
         or
 class(*),intent(in)  :: anything(:)

 character(len=1),allocatable :: chars(:)

This function uses polymorphism to allow input arguments of different
types. It is used to create other procedures that can take many
argument types as input options and convert them to a single type
to simplify storing arbitrary data, to simplify generating data
hashes, ...

The **transfer(3f)** function is now a standard, even more general
equivalent.

VALUEIN  input array or scalar to convert to type CHARACTER(LEN=1).
         May be of KIND INTEGER(kind=int8), INTEGER(kind=int16),
         INTEGER(kind=int32), INTEGER(kind=int64),
         REAL(kind=real32, REAL(kind=real64),
         REAL(kind=real128), complex, or CHARACTER(len=*)

CHARS    The returned value is an array of bytes (character(len=1)).

  program demo_anything_to_bytes
  use M_anything,      only : anything_to_bytes
  implicit none
  integer :: i
     write(*,"('select various types')")
     write(*,'(/,16(1x,z2.2))')anything_to_bytes([(i*i,i=1,10)])
     write(*,'(/,16(1x,z2.2))')anything_to_bytes([11.11,22.22,33.33])
     write(*,'(/,16(1x,z2.2))')anything_to_bytes('This is a string')

     write(*,"(/,'compare to TRANSFER(3f)')")
     write(*,'(/,16(1x,z2.2))') transfer([(i*i,i=1,10)],[' '])
     write(*,'(/,16(1x,z2.2))') transfer([11.11,22.22,33.33],[' '])
     write(*,'(/,16(1x,z2.2))') transfer('This is a string',[' '])
  end program demo_anything_to_bytes

 > select various types
 >
 >  01 00 00 00 04 00 00 00 09 00 00 00 10 00 00 00
 >  19 00 00 00 24 00 00 00 31 00 00 00 40 00 00 00
 >  51 00 00 00 64 00 00 00
 >
 >  8F C2 31 41 8F C2 B1 41 EC 51 05 42
 >
 >  54 68 69 73 20 69 73 20 61 20 73 74 72 69 6E 67
 >
 > compare to TRANSFER(3f)
 >
 >  01 00 00 00 04 00 00 00 09 00 00 00 10 00 00 00
 >  19 00 00 00 24 00 00 00 31 00 00 00 40 00 00 00
 >  51 00 00 00 64 00 00 00
 >
 >  8F C2 31 41 8F C2 B1 41 EC 51 05 42
 >
 >  54 68 69 73 20 69 73 20 61 20 73 74 72 69 6E 67

John S. Urban

MIT