character*1024      bfprml(nelem)