program displaykinds

        print *, "--- display all kind's variants ---"

end program