9 if (acc_get_num_devices (acc_device_host
) .ne
. 1) STOP 1
11 if (acc_get_num_devices (acc_device_none
) .ne
. 0) STOP 2
13 call acc_init (acc_device_host
)
15 if (acc_get_device_type () .ne
. acc_device_host
) STOP 3
17 call acc_set_device_type (acc_device_host
)
19 if (acc_get_device_type () .ne
. acc_device_host
) STOP 4
23 call acc_set_device_num (n
, acc_device_host
)
25 if (acc_get_device_num (acc_device_host
) .ne
. 0) STOP 5
27 if (.NOT
. acc_async_test (n
) ) STOP 6
33 call acc_shutdown (acc_device_host
)