...
Code Block | ||
---|---|---|
| ||
proc GiD_Event_SelectGIDBatFile { project_name basename } { set problemtype [GiD_Info Project ProblemType] set filename_bat [file join $problem_directory $problemtype.win.bat] if { $::tcl_platform(platform) != "windows" } { set filename_bat [file join $problem_directory $problemtype.unix.bat] } set problemtype_directory [GidUtils::GiveProblemTypeFullname [GiD_Info Project ProblemType]$problemtype].gid set gid_exe [info nameofexecutable] set result [list $filename_bat $basename $project_name $problemtype_directory $gid_exe] set cpus [GiD_Set GID_OMP_NUM_THREADS] lappend $result $ncpus return $result } |
...