1 INTEGER :: ARGC 2 ARGC = COMMAND_ARGUMENT_COUNT () 3 4!$OMP PARALLEL 5!$ACC PARALLEL COPYIN(ARGC) 6 IF (ARGC .NE. 0) THEN 7 STOP 1 8 END IF 9!$ACC END PARALLEL 10!$OMP END PARALLEL 11 12 END 13