00001 program template 00002 use arrayfire 00003 implicit none 00004 00005 call device_info() 00006 00007 end program template
