;makemon_scs
;
;Make the indices of when both instruments are up for each
; month from the monthly indices.


bnov97=nov97[where((instupl[nov97] eq 1) and (instupr[nov97] eq 1))]
bdec97=dec97[where((instupl[dec97] eq 1) and (instupr[dec97] eq 1))]
bjan98=jan98[where((instupl[jan98] eq 1) and (instupr[jan98] eq 1))]
bfeb98=feb98[where((instupl[feb98] eq 1) and (instupr[feb98] eq 1))]
bmar98=mar98[where((instupl[mar98] eq 1) and (instupr[mar98] eq 1))]
bapr98=apr98[where((instupl[apr98] eq 1) and (instupr[apr98] eq 1))]
bmay98=may98[where((instupl[may98] eq 1) and (instupr[may98] eq 1))]
bjun98=jun98[where((instupl[jun98] eq 1) and (instupr[jun98] eq 1))]
bjul98=jul98[where((instupl[jul98] eq 1) and (instupr[jul98] eq 1))]
baug98=aug98[where((instupl[aug98] eq 1) and (instupr[aug98] eq 1))]
end