sl4qcp01.gms : Test of correctness for levels and marginals of QCP, with solvelink=1,2,4,5

Description

Run qcp01 with solvelink=%SOLVELINK.CallScript%,%SOLVELINK.CallModule%,%SOLVELINK.AsyncSimulate%,%SOLVELINK.LoadLibrary%,%SOLVELINK.ThreadsSimulate%

Contributor: Lutz Westermann


Small Model of Type : QCP


Category : GAMS Test library


Main file : sl4qcp01.gms

$title 'Test of correctness for levels & marginals of QCP, with solvelink=1,2,4,5,7' (SL4QCP01,SEQ=537)

$ontext
Run qcp01 with solvelink=%SOLVELINK.CallScript%,%SOLVELINK.CallModule%,%SOLVELINK.AsyncSimulate%,%SOLVELINK.LoadLibrary%,%SOLVELINK.ThreadsSimulate%

Contributor: Lutz Westermann
$offtext

$set XX NT
$if %system.filesys% == UNIX $set XX un
$set q '"'
$if %system.filesys% == UNIX $set q "'"

$call grep -iv scrdir "%gams.scrdir%gmsprm%XX%.%gams.scrext%" | grep -iv scriptnext | grep -iv sysdir | grep -iv JobTrace > "%gams.scrdir%mypf.%gams.scrext%"

$call gams qcp01.gms pf="%gams.scrdir%mypf.%gams.scrext%" i=qcp01.gms solvelink=%SOLVELINK.CallScript%
$if errorlevel 1 $abort problems with sl=%SOLVELINK.CallScript%

$call gams qcp01.gms pf="%gams.scrdir%mypf.%gams.scrext%" i=qcp01.gms solvelink=%SOLVELINK.CallModule%
$if errorlevel 1 $abort problems with sl=%SOLVELINK.CallModule%

$call cat "%GAMS.sysdir%gmscmp%XX%.txt" | grep -v "^\*" | awk %q%NF>4 {if ($7>1) print $0 }%q% | grep -vi guss | cut -d" " -f1 | grep -iwq %system.QCP%
$if errorlevel 1 $goto skipsl5

$call gams qcp01.gms pf="%gams.scrdir%mypf.%gams.scrext%" i=qcp01.gms solvelink=%SOLVELINK.LoadLibrary%
$if errorlevel 1 $abort problems with sl=%SOLVELINK.LoadLibrary%

$call gams qcp01.gms pf="%gams.scrdir%mypf.%gams.scrext%" i=qcp01.gms solvelink=%SOLVELINK.ThreadsSimulate%
$if errorlevel 1 $abort problems with sl=%SOLVELINK.ThreadsSimulate%

$label skipsl5
$call gams qcp01.gms pf="%gams.scrdir%mypf.%gams.scrext%" i=qcp01.gms solvelink=%SOLVELINK.AsyncSimulate%
$if errorlevel 1 $abort problems with sl=%SOLVELINK.AsyncSimulate%