	# ESP zone operation file builder: 20/6/91

"imp << EOI"
"-6"
"0"
"y"
"/homedir/ccax078/ife/bin/profiles.db1"
"n"
"n"
"n"

"c"

% i = curr_zone	user_set	nokey
% name = z_name	user_set	$i
  "${name}"

% control = u_control_type	user_set	$i
  if test "X${control}" != "Xno"
  then
	"0"
	"y"
	"${control}"
	"3"
%	u_control = upper_control_limit	user_set	$i
%	l_control = lower_control_limit	$i
	"${l_control} ${u_control}"
%	l_infilt = lower_infiltration	user_set	$i
	"${l_infilt}"
%	l_add = lower_zone_coupled	user_set	$i
	"${l_add}"
%	l_d1 = lower_couple_index_d1	user_set	$i
	"${l_d1}"
	if test X${l_d1} = X0
	then
%	  l_d2 = lower_couple_index_d1	user_set	$i
	  "${l_d2}"
	fi
%	u_infilt = upper_infiltration	user_set	$i
	"${u_infilt}"
%	u_add = upper_zone_coupled	user_set	$i
	"${u_add}"
%	u_d1 = upper_couple_index_d1	user_set	$i
	"${u_d1}"
	if test X${u_d1} = X0
	then
%	  u_d2 = upper_couple_index_d2	user_set	$i
	  "${u_d2}"
	fi
  fi

"1"
% n_air = num_a	$i	user_set	weekday
  if test X$n_air != X0
  then
	forall j upto ${n_air}
	do
	  "b"
	  "1"
%	  start = u_start	user_set	$i	weekday	$j
%	  end = u_start	user_set	$i	weekday	$j
	  "${start} ${end}"
%	  infilt = infiltration	user_set	$i	weekday	$j
	  "${infilt}"
%	  add_air = zone_coupled	user_set	$i	weekday	$j
	  "${add_air}"
%	  index_1 = couple_index_d1	user_set	$i	weekday	$j
	  "${index_1}"
 	  if test X${index_1} = X0
	  then
%	    index_2 = couple_index_d2	user_set	$i	weekday	$j
	    "${index_2}"
	  fi
	done
  fi
"2"
% n_air = num_a	$i	user_set	saturday
  if test X$n_air != X0
  then
	forall j upto ${n_air}
	do
	  "b"
	  "1"
%	  start = u_start	user_set	$i	saturday	$j
%	  end = u_start	user_set	$i	saturday	$j
	  "${start} ${end}"
%	  infilt = infiltration	user_set	$i	saturday	$j
	  "${infilt}"
%	  add_air = zone_coupled	user_set	$i	saturday	$j
	  "${add_air}"
%	  index_1 = couple_index_d1	user_set	$i	saturday	$j
	  "${index_1}"
 	  if test X${index_1} = X0
	  then
%	    index_2 = couple_index_d2	user_set	$i	saturday	$j
	    "${index_2}"
	  fi
	done
  fi
"3"
% n_air = num_a	$i	user_set	sunday
  if test X$n_air != X0
  then
	forall j upto ${n_air}
	do
	  "b"
	  "1"
%	  start = u_start	user_set	$i	sunday	$j
%	  end = u_start	user_set	$i	sunday	$j
	  "${start} ${end}"
%	  infilt = infiltration	user_set	$i	sunday	$j
	  "${infilt}"
%	  add_air = zone_coupled	user_set	$i	sunday	$j
	  "${add_air}"
%	  index_1 = couple_index_d1	user_set	$i	sunday	$j
	  "${index_1}"
 	  if test X${index_1} = X0
	  then
%	    index_2 = couple_index_d2	user_set	$i	sunday	$j
	    "${index_2}"
	  fi
	done
  fi

"1"
% n_gdb = num_cd	user_set	$i	weekday
  if test X$n_gdb != X0
  then
	forall j upto ${n_gdb}
	do
	  "e"
%	  nr = cd_profile	user_set	$i	weekday	$j
	  "${nr}"
%	  type = cd_gain_type	user_set	$i	weekday	$j
	  "${type}"
%	  cd_sensible = cd_sensible	user_set	$i	weekday	$j
	  "${cd_sensible}"
%	  cd_latent = cd_latent	user_set	$i	weekday	$j
	  "${cd_latent}"
%	  cd_radiant = cd_radiant	user_set	$i	weekday	$j
%	  cd_convective = cd_convective	user_set	$i	weekday	$j
	  "${cd_radiant} ${cd_convective}"
 	done
 fi
"2"
% n_gdb = num_cd	user_set	$i	saturday
  if test X$n_gdb != X0
  then
	forall j upto ${n_gdb}
	do
	  "e"
%	  nr = cd_profile	user_set	$i	saturday	$j
	  "${nr}"
%	  type = cd_gain_type	user_set	$i	saturday	$j
	  "${type}"
%	  cd_sensible = cd_sensible	user_set	$i	saturday	$j
	  "${cd_sensible}"
%	  cd_latent = cd_latent	user_set	$i	saturday	$j
	  "${cd_latent}"
%	  cd_radiant = cd_radiant	user_set	$i	saturday	$j
%	  cd_convective = cd_convective	user_set	$i	saturday	$j
	  "${cd_radiant} ${cd_convective}"
 	done
 fi
"3"
% n_gdb = num_cd	user_set	$i	sunday
  if test X$n_gdb != X0
  then
	forall j upto ${n_gdb}
	do
	  "e"
%	  nr = cd_profile	user_set	$i	sunday	$j
	  "${nr}"
%	  type = cd_gain_type	user_set	$i	sunday	$j
	  "${type}"
%	  cd_sensible = cd_sensible	user_set	$i	sunday	$j
	  "${cd_sensible}"
%	  cd_latent = cd_latent	user_set	$i	sunday	$j
	  "${cd_latent}"
%	  cd_radiant = cd_radiant	user_set	$i	sunday	$j
%	  cd_convective = cd_convective	user_set	$i	sunday	$j
	  "${cd_radiant} ${cd_convective}"
 	done
 fi

"1"
% n_gd = num_c	user_set	$i	weekday
  if test X$n_gd != X0
  then
	forall j upto ${n_gdb}
	do
	  "e"
%	  start = c_start	user_set	$i	weekday	$j
%	  end = c_end	user_set	$i	weekday	$j
	  "${start} ${end}"
%	  type = c_gain_type	user_set	$i	weekday	$j
	  "${type}"
%	  c_sensible = c_sensible	user_set	$i	weekday	$j
	  "${c_latent}"
%	  c_latent = c_latent	user_set	$i	weekday	$j
	  "${c_latent}"
%	  c_radiant = c_radiant	user_set	$i	weekday	$j
%	  c_convective = c_convective	user_set	$i	weekday	$j
	  "${cd_radiant} ${cd_convective}"
 	done
 fi
"2"
% n_gd = num_c	user_set	$i	saturday
  if test X$n_gd != X0
  then
	forall j upto ${n_gdb}
	do
	  "e"
%	  start = c_start	user_set	$i	saturday	$j
%	  end = c_end	user_set	$i	saturday	$j
	  "${start} ${end}"
%	  type = c_gain_type	user_set	$i	saturday	$j
	  "${type}"
%	  c_sensible = c_sensible	user_set	$i	saturday	$j
	  "${c_latent}"
%	  c_latent = c_latent	user_set	$i	saturday	$j
	  "${c_latent}"
%	  c_radiant = c_radiant	user_set	$i	saturday	$j
%	  c_convective = c_convective	user_set	$i	saturday	$j
	  "${cd_radiant} ${cd_convective}"
 	done
 fi
"3"
% n_gd = num_c	user_set	$i	sunday
  if test X$n_gd != X0
  then
	forall j upto ${n_gdb}
	do
	  "e"
%	  start = c_start	user_set	$i	sunday	$j
%	  end = c_end	user_set	$i	sunday	$j
	  "${start} ${end}"
%	  type = c_gain_type	user_set	$i	sunday	$j
	  "${type}"
%	  c_sensible = c_sensible	user_set	$i	sunday	$j
	  "${c_latent}"
%	  c_latent = c_latent	user_set	$i	sunday	$j
	  "${c_latent}"
%	  c_radiant = c_radiant	user_set	$i	sunday	$j
%	  c_convective = c_convective	user_set	$i	sunday	$j
	  "${cd_radiant} ${cd_convective}"
 	done
 fi

"-"
"zone.opr"
"-"
"f"
"EOI"

