integer*2 nfmt2,nchan2,nbitsam2,nbytesam2
character*4 ariff,awave,afmt,adata

common/gcom3/ariff,nchunk,awave,afmt,lenfmt,nfmt2,nchan2,nsamrate, &
     nbytesec,nbytesam2,nbitsam2,adata,ndata

!### volatile /gcom3/