AlkantarClanX12
Current Path : /opt/cloudlinux/venv/lib64/python3.11/site-packages/numpy/f2py/tests/src/common/ |
Current File : //opt/cloudlinux/venv/lib64/python3.11/site-packages/numpy/f2py/tests/src/common/block.f |
SUBROUTINE INITCB DOUBLE PRECISION LONG CHARACTER STRING INTEGER OK COMMON /BLOCK/ LONG, STRING, OK LONG = 1.0 STRING = '2' OK = 3 RETURN END