00001 #include "tempload.h"
00002 #include "intools.h"
00003
00004
00005
00006
00007
00008
00009 tempload::tempload()
00010 {
00011 nlc = 0L;
00012 nslc = 0L;
00013 val = 0.0;
00014 }
00015
00016
00017
00018
00019
00020
00021 tempload::~tempload()
00022 {
00023 }
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040 long tempload::read(XFILE *in, long lc, long *slc=NULL)
00041 {
00042 xfscanf(in, "%k%ld", "lc_id", nlc);
00043 if ((nlc < 1) && (nlc > lc))
00044 return 1L;
00045 if (slc)
00046 {
00047 xfscanf(in, "%k%ld", "slc_id", &nslc);
00048 if ((nslc < 1) || (nslc > slc[nlc-1]))
00049 return(1);
00050 }
00051 xfscanf(in, "%k%le", "temperature", val);
00052 return 0L;
00053 }
00054
00055
00056
00057
00058
00059
00060
00061
00062
00063 void tempload::copy(tempload &tl)
00064 {
00065 nlc = tl.nlc;
00066 nslc = tl.nslc;
00067 val = tl.val;
00068 }