00001
00002
00003
00004
00005
00006
00007 #include <admodel.h>
00008
00009 void named_i3_array::allocate(int hsl,int hsu,int rmin,int rmax,
00010 int cmin,int cmax,const char * s)
00011 {
00012 i3_array::allocate(hsl,hsu,rmin,rmax,cmin,cmax);
00013 model_name_tag::allocate(s);
00014 }
00015
00016 void named_i3_array::allocate(int hsl,int hsu, const index_type& rmin,
00017 const index_type& rmax, const index_type& cmin, const index_type& cmax,
00018 const char * s)
00019 {
00020 i3_array::allocate(hsl,hsu,rmin,rmax,cmin,cmax);
00021 model_name_tag::allocate(s);
00022 }
00023
00024
00025 named_i3_array& named_i3_array::operator=(const i3_array& m)
00026 {
00027 i3_array::operator=(m);
00028 return *this;
00029 }
00030
00031 void data_3iarray::allocate(int hsl,int hsu,int rmin,int rmax,
00032 int cmin,int cmax,const char * s)
00033 {
00034 check_datafile_pointer(ad_comm::global_datafile);
00035 named_i3_array::allocate(hsl,hsu,rmin,rmax,cmin,cmax,s);
00036 *(ad_comm::global_datafile) >> i3_array(*this);
00037 }
00038
00039 void data_3iarray::allocate(int hsl, int hsu, const index_type& rmin,
00040 const index_type& rmax, const index_type& cmin,
00041 const index_type& cmax, const char *s)
00042 {
00043 check_datafile_pointer(ad_comm::global_datafile);
00044 named_i3_array::allocate(hsl,hsu,rmin,rmax,cmin,cmax,s);
00045 *(ad_comm::global_datafile) >> i3_array(*this);
00046 }