Datasetpublic

codekingpro/portable-devtools

sourceHugging Faceupdated 5mo agoView on Hugging Face

1likes14kdownloads

rootpythonuser_packagesPython313site-packagesnumpyf2pytestssrccommonblock.f

block.f12 linesDownload Raw Back to common

1      SUBROUTINE INITCB
2      DOUBLE PRECISION LONG
3      CHARACTER        STRING
4      INTEGER          OK
5    
6      COMMON  /BLOCK/ LONG, STRING, OK
7      LONG = 1.0
8      STRING = '2'
9      OK = 3
10      RETURN
11      END
12