How to save data to file using IDL?

Question

How to write a procedure for saving data?

pro SaveBVS
  B = [15.2]
  A = [1.1, 15.2]
  fname = \'B.txt\'
  OPENW, 1, fname
  PRINTF, B, FORMAT = \'(F15.13)\'
  CL