# PBC06.S
# xref: PBC.DOC
# input: PBC312.DAT
# output:  PBC (S object)
# does: - read data and create an S object
#******************************************************
# declare the structure of the data
pbc.what <- list(
    id =  0,
    time= 0,
    delta=0,
    z1  = 0,
    z2  = 0,
    z3  = 0,
    z4  = 0,
    z5  = 0,
    z6  = 0,
    z7  = 0,
    z8  = 0,
    z9  = 0,
    z10 = 0,
    z11 = 0,
    z12 = 0,
    z13 = 0,
    z14 = 0,
    z15 = 0,
    z16 = 0,
    z17 = 0 )

# read the data file
# pbc  <- scan("/distrib/bios280/pbc312.dat", what=pbc.what) # SUN
pbc  <- scan("/bios/280/pbc312.dat", what=pbc.what) # PC