get_type(3f) - [M_anything] return array of strings containing type names of arguments (LICENSE:MIT)
Synopsis
Description
Options
Return
Examples
Author
License
function get_type(anything) result(chars)
class(*),intent(in) :: anything or class(*),intent(in) :: anything(..)character(len=:),allocatable :: chars
This function uses polymorphism to allow input arguments of different types. It is used by other procedures that can take many argument types as input options.
VALUEIN input array or scalar to return type of 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 names
Sample program
program demo_get_type use M_anything, only : get_type implicit none integer :: i write(*,*)get_type([(i*i,i=1,10)]) write(*,*)get_type([11.11,22.22,33.33]) write(*,*)get_type(This is a string) write(*,*)get_type(30.0d0) end program demo_get_typeResults:
int32 real32 character real64
John S. Urban
Nemo Release 3.1 | get_type (3) | February 23, 2025 |