integer*2 d2c
character filename*24
character addpfx*4

common/gcom4/addpfx,d2c(661500),jzc,filename

!### volatile /gcom4/