HEX

Server: Apache

System: Linux pdx1-shared-a1-38 6.6.104-grsec-jammy+ #3 SMP Tue Sep 16 00:28:11 UTC 2025 x86_64

User: mmickelson (3396398)

PHP: 8.1.31

Disabled: NONE

Upload Files

File: //lib/python3/dist-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