I could really use a bit of help with the following problem, which is
preventing me from checking in a new version of the SC code into the GSIM
package. (The old version is broken in that it does not properly deal
with the ganged SC paddles.)
If you have any BOS experience, please reply soon.
The following is happening:
1) I create a new SC bos bank in routine bos_sc
2) This bos bank stays intact all the way until just before a call to
"fwbos" where part of my SC bank is destroyed just before it is written
out.
I check this by printing the contends of the bank before and after the
call to fwbos, and by checking what ends up in the file:
------- bos_out.F ------
...
call check_sc_bank
c write bos data
call fwbos(iw,gsimout_unit,'E',iret)
if(iret.ne.0)then
write(crmess,'(''?unable to write bos record, iret is '',i4)')
1 iret
call recmes(crname,'I',crmess)
endif
call check_sc_bank
c drop and remove event banks
call bdrop(iw,'E')
call bgarb(iw)
return
end
------------------------
I have no idea how to debug this further. I have tried replacing the
"bkfmt" and "blist" calls in "init_bos.F" to a call to txt2bos.F but this
does not help.
Please give me some suggestions (before I start into a major flame war on
why I think BOS is a hopeless package we should drop...)
Best Regards,
Maurik
----------------------------------------------------------------------
Maurik Holtrop web: http://www.physics.unh.edu/Maurik
UNH Physics Department tel: (603) 862-2019 | fax: (603) 862-2998
DeMeritt Hall mailto:maurik.holtrop@unh.edu
Durham, NH 03824 Home: (603) 659-8765
----------------------------------------------------------------------