00001
00002
00003
00004
00005
00006
00007
00008 #include <admodel.h>
00009
00010 void data_4array::allocate(int hhsl,int hhsu,int hsl,int hsu,
00011 int rmin,int rmax,int cmin,int cmax,const char * s)
00012 {
00013 named_d4_array::allocate(hhsl,hhsu,hsl,hsu,rmin,rmax,cmin,cmax,s);
00014 *(ad_comm::global_datafile) >> d4_array(*this);
00015 }
00016
00017 void data_4array::allocate(ad_integer hhsl,ad_integer hhsu,
00018 const index_type& hsl, const index_type& hsu,
00019 const index_type& rmin, const index_type& rmax,
00020 const index_type& cmin, const index_type& cmax, const char *s)
00021 {
00022 named_d4_array::allocate(hhsl,hhsu,hsl,hsu,rmin,rmax,cmin,cmax,s);
00023 *(ad_comm::global_datafile) >> d4_array(*this);
00024 }
00025
00026 void data_4iarray::allocate(int hhsl,int hhsu,int hsl,int hsu,
00027 int rmin,int rmax,int cmin,int cmax,const char * s)
00028 {
00029 named_i4_array::allocate(hhsl,hhsu,hsl,hsu,rmin,rmax,cmin,cmax,s);
00030 *(ad_comm::global_datafile) >> i4_array(*this);
00031 }
00032
00033 void data_4iarray::allocate(ad_integer hhsl,ad_integer hhsu,
00034 const index_type& hsl, const index_type& hsu,
00035 const index_type& rmin, const index_type& rmax,
00036 const index_type& cmin, const index_type& cmax, const char *s)
00037 {
00038 named_i4_array::allocate(hhsl,hhsu,hsl,hsu,rmin,rmax,cmin,cmax,s);
00039 *(ad_comm::global_datafile) >> i4_array(*this);
00040 }