Page Comparison

proc GiD_Event_SelectGIDBatFile { project_name basename } {
    set problemtype [GiD_Info Project ProblemType]
    set problemtype_directory [GidUtils::GiveProblemTypeFullname $problemtype].gid
    set filename_bat [file join $problem$problemtype_directory $problemtype.win.bat]
    if { $::tcl_platform(platform) != "windows" } { 
        set filename_bat [file join $problemtype_directory$problemtypedirectory $problemtype.unix.bat]
    }    
    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
}