python-docs-venv/lib/python3.11/site-packages/numpy/f2py/tests/src/common/block.f - datasketches-python - Git at Google

       SUBROUTINE INITCB
       DOUBLE PRECISION LONG
       CHARACTER        STRING
       INTEGER          OK

       COMMON  /BLOCK/ LONG, STRING, OK
       LONG = 1.0
       STRING = '2'
       OK = 3
       RETURN
       END
	SUBROUTINE INITCB
	DOUBLE PRECISION LONG
	CHARACTER STRING
	INTEGER OK

	COMMON /BLOCK/ LONG, STRING, OK
	LONG = 1.0
	STRING = '2'
	OK = 3
	RETURN
	END