BLOCK DATA PARAM_INI COMMON /MYCOM/ MYDATA DATA MYDATA /0/ END SUBROUTINE SUB1 COMMON /MYCOM/ MYDATA MYDATA = MYDATA + 1 END