Description

load is a replace, although not tested here

Small Model of Type : GAMS

Category : GAMS Test library

Main file : point2.gms

$title execute_load is a replacement operation (POINT2,SEQ=31)

* load is a replace, although not tested here


sets s / i1*i3 /,s1(s),s2(s),s3(s),s4(s),s5(s),s6(s),s7(s)
parameters       p1(s),p2(s),p3(s),p4(s),p5(s),p6(s),p7(s)
positive variables v1(s)
         variables v2(s),v3(s),v4(s),v5(s);

s1(s)   = yes;
p1(s)   = ord(s);
v1.l(s) = 10*(ord(s)-1); v1.m(s) = 100*(card(s)-ord(s));
v1.lo('i2') = -123;
v1.up('i3') = 321;


display s1,p1,v1.l,v1.m,v1.lo,v1.up,v1.scale;

execute_unload 'gdx1' s1,p1,v1;

execute_load 'gdx1'

  s2 = s1 s3 = p1 s4=v1.l s5=v1.m s6=v1.up s7=v1.lo

  p2 = s1 p3 = p1 p4=v1.l p5=v1.m p6=v1.up p7=v1.lo

  v2 = v1 v3.l= s1 v4.m=p1 v5.lo=v1.up v5.up=v1.lo;


abort$sum(s, s2(s) xor s1   (s)) 's2 <> s1'    ,s2,s1   ;
abort$sum(s, s3(s) xor p1   (s)) 's3 <> p1'    ,s3,p1   ;
abort$sum(s, s4(s) xor v1.l (s)) 's4 <> v1.l' , s4,v1.l ;
abort$sum(s, s5(s) xor v1.m (s)) 's5 <> v1.m' , s5,v1.m ;
abort$sum(s, s6(s) xor v1.up(s)) 's6 <> v1.up', s6,v1.up;
abort$sum(s, s7(s) xor v1.lo(s)) 's7 <> v1.lo', s7,v1.lo;

abort$sum(s, p2(s) xor s1   (s)) 'p1 <> s1'    ,p2,s1   ;
abort$sum(s, p3(s) <>  p1   (s)) 'p3 <> p1'    ,p3,p1   ;
abort$sum(s, p4(s) <>  v1.l (s)) 'p4 <> v1.l' , p4,v1.l ;
abort$sum(s, p5(s) <>  v1.m (s)) 'p5 <> v1.m' , p5,v1.m ;
abort$sum(s, p6(s) <>  v1.up(s)) 'p6 <> v1.up', p6,v1.up;
abort$sum(s, p7(s) <>  v1.lo(s)) 'p7 <> v1.lo', p7,v1.lo;

abort$sum(s, v2.l (s) <>  v1.l   (s)) 'v2.l  <> v1.l ',v2.l ,v1.l ;
abort$sum(s, v2.m (s) <>  v1.m   (s)) 'v2.m  <> v1.m ',v2.m ,v1.m ;
abort$sum(s, v2.lo(s) <>  v1.lo  (s)) 'v2.lo <> v1.lo',v2.lo,v1.lo;
abort$sum(s, v2.up(s) <>  v1.up  (s)) 'v2.up <> v1.up',v2.up,v1.up;
abort$sum(s, v3.l (s) xor s1     (s)) 'v3.l  <> s1   ',v3.l ,s1   ;
abort$sum(s, v4.m (s) <>  p1     (s)) 'v4.m  <> p1   ',v4.m ,p1   ;
abort$sum(s, v5.lo(s) <>  -inf      ) 'v5.lo <> -info',v5.lo      ;
abort$sum(s, v5.l (s) <>  0.0       ) 'v5.l  <> 0.0  ',v5.l       ;
abort$sum(s, v5.up(s) <>  v1.lo  (s)) 'v5.up <> v1.lo',v5.up,v1.lo;


display s2,s3,s4,s5,s6,s7;
display p2,p3,p4,p5,p6,p7;
display v2.l,v2.m,v2.lo,v2.up;
display v3.l,v3.m,v3.lo,v3.up;
display v4.l,v4.m,v4.lo,v4.up;
display v4.l,v4.m,v4.lo,v4.up;