-    # Input: var:  fdepth   (find_flist) find depth
-    #        var:  firegex  (find_flist) pattern find iregex
-    #        var:  fsize    (find_flist) find size
-    cuda_num="$1";
-    dir_in="$(pwd)";
+    # Input: arg1: dir_in    input dir
+    #        arg2: cuda_num  cuda GPU index
+    #        var:  fdepth    (find_flist) find depth
+    #        var:  firegex   (find_flist) pattern find iregex
+    #        var:  fsize     (find_flist) find size
+    dir_in="$1";
+    cuda_num="$2";