Saving Text with Apostrophes

[sumitm]

Hi,
This looks relatively simple but I need to save some text with apostrophes. I tried

write(botname,'(A15)') ' "New Bottle"  '    
open(18,FILE="bottle1.bt1",status='replace')
write (18,*) '&BottleInput'
Write (18,*) 'BottleName=',trim(botname)

but that does not seem to work.

In the output file (bottle1.bt1) I need a line that reads like
BottleName= "New Bottle"

Thanks for any help
Sumit

[Steven_L_Intel1]

Add DELIM="QUOTE" to the OPEN.

Steve

[sumitm]

Thanks!