integer*2 d2c
character filename*24
character addpfx*4
common/gcom4/addpfx,d2c(661500),jzc,filename
!### volatile /gcom4/