설명

이 모델은 "슬롯 나라=<filename>"으로 GAMSCMEX에 의해 생성된 슬롯 나라 파일을 확인합니다
환경 변수의 다양한 설정에 대해 우리가 기대하는 것입니다.
GDXCOMPRESS 및 GDXTHREADS.

기고자: Steve Dirkse, 2012년 5월

소형 모델 유형 :GAMS

메인 파일 : gdxcomp2.gms

$title '슬롯 나라 - 압축 및 MT 작업' (GDXCOMP2,SEQ=559)

$onText
이 모델은 "슬롯 나라=<filename>"으로 GAMSCMEX에서 생성된 슬롯 나라 파일을 확인합니다.
환경 변수의 다양한 설정에 대해 우리가 기대하는 것입니다.
GDXCOMPRESS 및 GDXTHREADS.

기고자: Steve Dirkse, 2012년 5월
$offText

$call gamslib -q 1
$onEcho > subtest.gms
$onDollar
$setDDList GDXDEF GDXTMP GDXCOMPRESS_VAL GDXTHREADS_VAL

$GDXDEF가 설정되지 않은 경우 $set GDXDEF def.슬롯 나라
$GDXTMP가 설정되지 않은 경우 $set GDXTMP tmp.슬롯 나라
$GDXCOMPRESS_VAL이 설정되지 않은 경우 $abort 'GDXCOMPRESS_VAL이 설정되어야 합니다.'
$GDXTHREADS_VAL이 설정되지 않은 경우 $abort 'GDXTHREADS_VAL이 설정되어야 합니다.'

$setEnv GDXCOMPRESS %GDXCOMPRESS_VAL%
$setEnv GDXTHREADS %GDXTHREADS_VAL%
$call =gams trnsport lp=soplex 슬롯 나라=%GDXTMP% lo=0

$call wc -c %GDXDEF% | sed s/%GDXDEF%// > "%gams.scrdir%def.%gams.scrext%"
$call wc -c %GDXTMP% | sed s/%GDXTMP%// > "%gams.scrdir%tmp.%gams.scrext%"

스칼라 def '기본 슬롯 나라 파일 크기' /
$include "%gams.scrdir%def.%gams.scrext%"
/

'GDXCOMPRESS_VAL = %GDXCOMPRESS_VAL%' 표시;
'GDXTHREADS_VAL = %GDXTHREADS_VAL%' 표시;

$ifThen %GDXCOMPRESS_VAL% == 0

scalar tmp '압축되지 않은 슬롯 나라 파일의 크기' /
$include "%gams.scrdir%tmp.%gams.scrext%"
/
abort$(def>tmp) "잘못된 파일 크기: 기본값 > 압축되지 않음"

$else

scalar tmp '압축된 슬롯 나라 파일의 크기' /
$include "%gams.scrdir%tmp.%gams.scrext%"
/
abort$(def<tmp) "잘못된 파일 크기: 기본값 < 압축"

$endIf

스칼라 rc;
'gdxdiff %GDXDEF% %GDXTMP% > %system.nullfile%'를 실행합니다.
rc = 오류수준;
abort$[rc <> 0] 'GDXDIFF에서는 %GDXDEF%와 %GDXTMP%가 다르다고 말합니다.', rc;
$offEcho

* 먼저 기본값으로 생성
$call =gams trnsport lp=soplex 슬롯 나라=def.슬롯 나라 lo=0
$if errorlevel 1 $abort 'trnsport를 실행할 수 없습니다'

스칼라 rc;
파일 fp;

nthreads 설정 / '-8' * '-1', 0, 1 * 8 /;
구성요소 설정 / 0, 1/;

루프 (compr, nthreads),
  put_utility fp 'shell' / 'gams 하위 테스트 lo=0 --GDXDEF=def.슬롯 나라 --GDXCOMPRESS_VAL=',compr.val:0:0,' --GDXTHREADS_VAL=',nthreads.val:0:0;
  rc = 오류수준;
  abort$[rc <> 0] '하위 테스트 실패', rc, compr, nthreads;
;