$title 'Domain projection load tests' (LOAD10,SEQ=638)

$onText
Contributor: Paul van der Eijk, November 2013
$offText

$onEcho > gengdx.gms
set i /i1*i3/;
parameter A(i, *);
A('i1', '2004')=1;
A('i2', '2003')=2;
A('i3', '2002')=3;
$offEcho
$call gams gengdx gdx=f1.gdx lo=%GAMS.lo%

set allyear /1980*2020/;
set i, year(allyear);
parameter A(i,year);

$gdxIn f1.gdx
$load i<A.dim1 year<A.dim2

display year,i;
execute_unload 'f2.gdx';