block data abortblk
        real zz0,zz1
        common /abortcmn/ zz0,zz1
        data zz0 /0.0/
        end