; IDL Version 3.1.0 (RISC/os mipseb)
; Journal File for steele@jasper
; Working directory: /aragorn/user2/steele/PAC/LBS
; Date: Thu Jun 29 15:42:05 1995
 
i=[mean([25.3,25.2,24.9]),mean([32.3,32.3,32.2]),mean([7.56,7.54,7.51]) $
  ,mean([107.,107.,107.]),mean([40.8,40.9,41.0])]*1e-3	; convert to nA
i=-(-i-replicate(0.2e-3,5))	; subtract background
print,i
i2b,i,w,b,db
db=db*0.05	; assume uncertainty of 0.05 pA rather than 1.0 pA
print,w,b,db
bbfit,w,b,db,t,f
; ( 950629 / EPK / A-3 / K617 )
psopen,'LBSA-3.950629.cal.ps'
bbfit,w,b,db,t,f
; ( 950629 / EPK / A-3 / K617 )
psclose
end