{"id":41952,"date":"2023-03-25T21:18:02","date_gmt":"2023-02-01T23:48:41","guid":{"rendered":"https:\/\/www.silicloud.com\/zh\/blog\/%e6%88%91%e6%83%b3%e8%a6%81%e5%9c%a8fortran%e4%b8%ad%e4%bd%bf%e7%94%a8%e6%95%b0%e6%8d%ae%e5%ba%93%ef%bc%81\/"},"modified":"2024-04-29T20:30:32","modified_gmt":"2024-04-29T12:30:32","slug":"%e6%88%91%e6%83%b3%e8%a6%81%e5%9c%a8fortran%e4%b8%ad%e4%bd%bf%e7%94%a8%e6%95%b0%e6%8d%ae%e5%ba%93%ef%bc%81","status":"publish","type":"post","link":"https:\/\/www.silicloud.com\/zh\/blog\/%e6%88%91%e6%83%b3%e8%a6%81%e5%9c%a8fortran%e4%b8%ad%e4%bd%bf%e7%94%a8%e6%95%b0%e6%8d%ae%e5%ba%93%ef%bc%81\/","title":{"rendered":"\u6211\u60f3\u8981\u5728Fortran\u4e2d\u4f7f\u7528\u6570\u636e\u5e93\uff01"},"content":{"rendered":"

\u7b80\u800c\u8a00\u4e4b<\/h2>\n

PostgreSQL\u5177\u6709\u7528\u4e8e\u524d\u7aef\u7684C\u5e93libpq\u3002\u501f\u52a9\u73b0\u4ee3Fortran\u7684C\u4e92\u64cd\u4f5c\u529f\u80fd\uff0c\u6211\u4eec\u521b\u5efa\u4e86\u4e00\u4e2aFortran\u5c01\u88c5\u7a0b\u5e8fLibpq-Fortran\uff0c\u5e76\u4ecb\u7ecd\u5176\u7528\u6cd5\u3002<\/p>\n

Libpq-Fortran \u2014 Libpq\u7684\u73b0\u4ee3Fortran\u63a5\u53e3<\/p>\n

\u5f15\u5165<\/h2>\n

\u5728\u5173\u7cfb\u6570\u636e\u5e93\u7ba1\u7406\u7cfb\u7edf\u4e2d\uff0c\u6709\u591a\u79cd\u5b9e\u73b0\u65b9\u6cd5\u3002\u4f8b\u5982MySQL\u3001PostgreSQL\u3001IBM Db2\u7b49\u90fd\u662f\u6211\u4eec\u80fd\u60f3\u5230\u7684\u3002\u6b64\u5916\uff0c\u8fd8\u6709\u9002\u7528\u4e8e\u8f7b\u91cf\u7ea7\u5e94\u7528\u7684SQLite\u3002<\/p>\n

\u6839\u636ePhilipp Engel\u5148\u751f\u7684\u8bf4\u6cd5\uff08\u53c2\u8003\u6587\u732e1\uff09\uff0c\u6709\u51e0\u4e2aFortran\u6a21\u5757\u4e0eSQLite\u76f8\u5173\u3002\u4ee5\u4e0b\u6709\u5173\u8fd9\u56db\u4e2a\u5e93\u7684\u603b\u7ed3\u3002<\/p>\n

Fortran-SQLite3\u662f\u4ee5\u7eafFortran 2018\u7f16\u5199\u7684\u73b0\u4ee3\u63a5\u53e3\u7ed1\u5b9a\u5230SQLite 3\u7684\u5de5\u5177\u3002<\/p>\n

FLIBS\u662fFortran 90\u6a21\u5757\uff0c\u5305\u542b\u56f4\u7ed5SQLite\u7684\u975e\u6807\u51c6\u5305\u88c5\u4f8b\u7a0b\u3002<\/p>\n

libGPF\u662f\u4e00\u4e2a\u901a\u7528\u7684Fortran\u96c6\u5408\uff0c\u5305\u62ecSQLite 3\u7684\u7ed1\u5b9a\u3002<\/p>\n

sqliteff\u662fFortran 2003\u7684SQLite\u7248\u672c\uff0c\u5b83\u662fSQLite\u5e93\u7684\u4e00\u4e2a\u8584C\u5305\u88c5\u3002<\/p>\n

\u300aSQLite – \u4f7f\u7528\u73b0\u4ee3Fortran\u7f16\u7a0b\u300b\u662f\u7531Philipp Engel\u64b0\u5199\u7684\u4e66\u7c4d\u3002<\/p><\/blockquote>\n

\u7136\u800c\uff0c\u8fd9\u4e9b\u53ea\u662f\u6570\u636e\u5e93\u7684\u201c\u5e93\u201d\uff0c\u5e76\u4e0d\u80fd\u63d0\u4f9b\u8bbf\u95ee\u6570\u636e\u5e93\u201c\u670d\u52a1\u5668\u201d\u7684\u624b\u6bb5\u3002\u867d\u7136\u5f15\u5165\u7684\u96be\u5ea6\u53ef\u80fd\u4f1a\u6bd4\u8f83\u9ad8\uff0c\u4f46\u5982\u679c\u9700\u8981\u5904\u7406\u76f8\u5f53\u5927\u89c4\u6a21\u7684\u6570\u636e\uff0c\u4e5f\u4f1a\u6709\u4e00\u4e9b\u60c5\u51b5\u9700\u8981\u5728\u670d\u52a1\u5668\u4e0a\u8fdb\u884c\u7ba1\u7406\u3002<\/p>\n

\u56e0\u6b64\uff0c\u6211\u51b3\u5b9a\u5f00\u53d1\u4e00\u4e2a\u4f5c\u4e3aPostgreSQL\u6570\u636e\u5e93\u670d\u52a1\u5668\u5ba2\u6237\u7aef\u63a5\u53e3\u7684Fortran\u6a21\u5757\u3002\u6211\u5c06\u5b83\u5728GitHub\u4e0a\u4ee5”Libpq-Fortran”\u7684\u540d\u79f0\u516c\u5f00\uff08\u91c7\u7528MIT\u8bb8\u53ef\u8bc1\uff09\u3002<\/p>\n

Libpq-Fortran\u662f\u4f7f\u7528Fortran\u7684C\u4e92\u64cd\u4f5c\u529f\u80fd\uff0c\u53ef\u4ee5\u8bbf\u95eePostgreSQL\u7684\u5b98\u65b9C\u5e93libpq\u3002\u867d\u7136\u8be5\u8f6f\u4ef6\u7684\u6587\u6863\u5c1a\u672a\u51c6\u5907\u597d\uff0c\u4f46\u5728\u672c\u6587\u4e2d\uff0c\u6211\u60f3\u4ecb\u7ecd\u5b83\u7684\u521d\u59cb\u7528\u6cd5\u3002<\/p>\n

\u4f9d\u5b58\u5173\u7cfb\u8f6f\u4ef6<\/h2>\n

\u5728\u672c\u90e8\u5206\u4e2d\uff0c\u5c06\u4ecb\u7ecdLibpq-Fortran\u6240\u4f9d\u8d56\u7684\u8f6f\u4ef6\u3002<\/p>\n

\u6784\u5efa\u6240\u9700\u7684\u8f6f\u4ef6\u5982\u4e0b\u6240\u793a\u3002<\/p>\n

    \n
  • \n
      libpq<\/ul>\n<\/li>\n<\/ul>\n

       <\/p>\n

        \n
      • \n
          Fortran\u30b3\u30f3\u30d1\u30a4\u30e9<\/ul>\n<\/li>\n<\/ul>\n

           <\/p>\n

            Fortran\u30d1\u30c3\u30b1\u30fc\u30b8\u30de\u30cd\u30fc\u30b8\u30e3\u30fc\uff08fpm\uff09<\/ul>\n

            \u9996\u5148\uff0c\u60a8\u9700\u8981\u5728\u672c\u5730\u673a\u5668\u7684\u7cfb\u7edf\u4e0a\u5b89\u88c5libpq\u5e93\u3002\u5728Windows\u4e0a\uff0c\u5f53\u60a8\u5728\u5411\u5bfc\u4e2d\u5b89\u88c5PostgreSQL\u65f6\uff0c\u5b83\u4f1a\u81ea\u52a8\u5b89\u88c5\u3002\u5177\u4f53\u6765\u8bf4\uff0c\u5bf9\u4e8ePostgreSQL 15\u7248\u672c\uff0c\u53ea\u9700\u786e\u4fdd\u5b58\u5728\u6587\u4ef6C:\\Program Files\\PostgreSQL\\15\\include\\libpq-fe.h\u5373\u53ef\u3002\u5bf9\u4e8eUbuntu\uff0c\u60a8\u53ef\u4ee5\u8fd0\u884csudo apt install libpq-dev\u547d\u4ee4\u8fdb\u884c\u5b89\u88c5\u3002<\/p>\n

            \u63a5\u4e0b\u6765\u9700\u8981\u4e00\u4e2aFortran\u7f16\u8bd1\u5668\u3002\u76ee\u524d\uff0cLibpq-Fortran\u652f\u6301\u4ee5\u4e0b\u7f16\u8bd1\u5668\u7684\u6784\u5efa\u3002<\/p>\n

              \n
            • \n
                GNU Compiler Collection: gfortran<\/ul>\n<\/li>\n<\/ul>\n

                Intel oneAPI HPC toolkit: Fortran Compiler ifx, Fortran Compiler Classic ifort<\/p>\n

                \u8fd8\u9700\u8981Fortran\u8f6f\u4ef6\u5305\u7ba1\u7406\u5668\uff08fpm\uff09\u3002\u60a8\u53ef\u4ee5\u4eceGitHub\u4e0a\u4e0b\u8f7d\u5b83\u3002\u53e6\u5916\uff0c\u8fd8\u9700\u8981\u6211\u7684\u53e6\u4e00\u4e2a\u5e93uint-fortran\uff0c\u4f46\u662ffpm\u4f1a\u81ea\u52a8\u5904\u7406\u5b83\u7684\u4f9d\u8d56\u5173\u7cfb\u3002<\/p>\n

                \u6700\u540e\u9700\u8981\u8fde\u63a5\u5230PostgreSQL\u6570\u636e\u5e93\u670d\u52a1\u5668\u3002\u8fd9\u4e2a\u670d\u52a1\u5668\u5fc5\u987b\u53ef\u901a\u8fc7\u672c\u5730\u8ba1\u7b97\u673a\u6216\u672c\u5730\u7f51\u7edc\u8bbf\u95ee\u3002\u8bf7\u51c6\u5907\u4e00\u4e2a\u4e0d\u4f1a\u6709\u6570\u636e\u4e22\u5931\u95ee\u9898\u7684\u6570\u636e\u5e93\uff0c\u7528\u4e8e\u8fdb\u884c\u6b64\u8f6f\u4ef6\u7684\u6d4b\u8bd5\u3002<\/p>\n

                \u5efa\u9020<\/h2>\n

                \u9996\u5148\uff0c\u4ecebash\u6216powershell\u7b49\u7ec8\u7aef\u6267\u884c\u4ee5\u4e0b\u547d\u4ee4\u6765\u6784\u5efaLibpq-Fortran\u3002<\/p>\n

                $ <\/span>git clone https:\/\/github.com\/shinobuamasaki\/libpq-fortran\r\n$ <\/span>cd <\/span>libpq-fortran\r\n$ <\/span>fpm build\r\n<\/code><\/pre>\n
                \u5f53\u6267\u884cfpm build\u65f6\uff0c\u6709\u65f6\u9700\u8981\u544a\u8bc9\u7f16\u8bd1\u5668\u201clibpq-fe.h\u201d\u6587\u4ef6\u7684\u76ee\u5f55\u8def\u5f84\u3002\u5728\u8fd9\u79cd\u60c5\u51b5\u4e0b\uff0c\u53ef\u4ee5\u5c06\u8def\u5f84\u5199\u5728\u73af\u5883\u53d8\u91cfFPM_CFLAGS\u6216\u6784\u5efa\u9009\u9879–c-flag\u540e\u9762\u7684-I\u540e\u9762\u3002<\/p>\n
                \u4e3e\u4e2a\u4f8b\u5b50\uff0c\u4ee5Ubuntu\u4e3a\u4f8b\uff0c\u8be5\u76ee\u5f55\u53ef\u80fd\u662f\/usr\/include\/postgresql\uff0c\u6240\u4ee5\u547d\u4ee4\u5e94\u8be5\u662f\u5982\u4e0b\u6240\u793a\u3002<\/p>\n
                $ <\/span>export <\/span>FPM_CFLAGS<\/span>=<\/span>\"-I\/usr\/include\/postgresql\"<\/span>\r\n$ <\/span>fpm build\r\n\u307e\u305f\u306f\r\n$ <\/span>fpm build --c-flag<\/span> \"-I\/usr\/include\/postgresql\"<\/span>\r\n<\/code><\/pre>\n
                \u8bd5\u7528Libpq-Fortran\u3002<\/h2>\n
                \u5728\u5b58\u50a8\u5e93\u7684example\u76ee\u5f55\u4e2d\uff0c\u5305\u542b\u4e86\u4e00\u4e2a\u7a0b\u5e8f\uff0c\u53ef\u4ee5\u901a\u8fc7\u4e0ePostgreSQL\u670d\u52a1\u5668\u8fdb\u884c\u4ea4\u4e92\uff0c\u83b7\u53d6\u670d\u52a1\u5668\u6570\u636e\u5e93\u5217\u8868\u7684\u6570\u636e\u3002<\/p>\n
                \u8981\u6267\u884c\u8fd9\u4e2a\uff0c\u9700\u8981\u4f7f\u7528\u5982\u4e0b\u7684fpm run\u547d\u4ee4\u3002<\/p>\n
                $ <\/span>fpm run demo --example<\/span>\r\ndemo.f90                               done<\/span>.<\/span>\r\ndemo                                   done<\/span>.<\/span>\r\n[<\/span>100%] Project compiled successfully.\r\n===<\/span> INPUT Database Information ===<\/span>\r\n===<\/span> type<\/span> \"q\"<\/span> for <\/span>quit          ===<\/span>\r\nHostname:\r\n<\/code><\/pre>\n
                \u5982\u679c\u51fa\u73b0\u8981\u6c42\u8f93\u5165\u5173\u4e8e\u8bbf\u95ee\u670d\u52a1\u5668\u7684\u4fe1\u606f\u7684\u4e3b\u673a\u540d\u63d0\u793a\uff1aHostname:\uff0c\u90a3\u5c31\u8868\u793a\u6210\u529f\u4e86\u3002<\/p>\n
                \u53ea\u8981\u50cf\u4e0b\u9762\u7684\u4f8b\u5b50\u8f93\u5165\u4fe1\u606f\uff0c\u5c31\u53ef\u4ee5\u5efa\u7acb\u4e0e\u6570\u636e\u5e93\u7684\u8fde\u63a5\u5e76\u63d0\u53d6\u7ed3\u679c\u3002\uff08\u8bf7\u6839\u636e\u5404\u81ea\u7684\u73af\u5883\u6765\u4fee\u6539\u4e3b\u673a\u540d\u3001\u6570\u636e\u5e93\u540d\u3001\u7528\u6237\u540d\u548c\u5bc6\u7801\uff09\u3002<\/p>\n
                ===<\/span> INPUT Database Information ===<\/span>\r\n===<\/span> type<\/span> \"q\"<\/span> for <\/span>quit          ===<\/span>\r\nHostname: localhost\r\ndbname: postgres\r\nuser: shinobu\r\npassword: xxxyyyzzz\r\n===<\/span> END INPUT ===<\/span>\r\n===<\/span> Query Result<\/span>===<\/span>\r\ntuples, fields: 3  1\r\n===<\/span> Available database names ===<\/span>\r\npostgres\r\ntemplate1\r\ntemplate0\r\n<\/code><\/pre>\n
                \u5982\u679c\u5728Available database names\u4e0b\u9762\u81f3\u5c11\u663e\u793a\u51fapostgres\u3001template1\u3001template0\u8fd9\u4e09\u4e2a\u540d\u79f0\uff0c\u90a3\u4e48\u5c31\u8868\u793a\u6210\u529f\u4e86\u3002\u5728\u4f7f\u7528Fortran\u7f16\u5199\u7684\u4ee3\u7801\u7684\u5e2e\u52a9\u4e0b\uff0c\u6211\u4eec\u6210\u529f\u5b9e\u73b0\u4e86\u5bf9\u6570\u636e\u5e93\u670d\u52a1\u5668\u7684\u8bbf\u95ee\u3002\u63a5\u4e0b\u6765\u7684\u90e8\u5206\u5c06\u8be6\u7ec6\u4ecb\u7ecd\u6211\u4eec\u6240\u4f7f\u7528\u7684\u4ee3\u7801\u3002<\/p>\n
                \u6f14\u793a\u7a0b\u5e8f<\/h2>\n
                \u5728\u8fd9\u4e2a\u90e8\u5206\uff0c\u6211\u4eec\u5c06\u8be6\u7ec6\u8bf4\u660e\u4e0a\u9762\u4f8b\u5b50\u4e2d\u4f7f\u7528\u7684demo.f90\u7a0b\u5e8f\u3002\u6574\u4e2a\u7a0b\u5e8f\u53ef\u4ee5\u5728\u672c\u6587\u7684\u9644\u5f55\u6216GitHub\u4e0a\u67e5\u770b\u3002<\/p>\n
                \u5ba3\u8a00\u90e8 b\u00f9)<\/h3>\n
                \u9019\u500b\u7a0b\u5f0f\u7684\u5ba3\u544a\u8a9e\u53e5\u5982\u4e0b\uff1a<\/p>\n
                program<\/span> demo<\/span>\r\n   use<\/span> ::<\/span> libpq<\/span>\r\n   use<\/span>,<\/span> intrinsic<\/span> ::<\/span> iso_c_binding<\/span>\r\n   use<\/span>,<\/span> intrinsic<\/span> ::<\/span> iso_fortran_env<\/span>,<\/span> only<\/span>:<\/span>stdout<\/span>=><\/span>output_unit<\/span>,<\/span> stdin<\/span>=><\/span>input_unit<\/span>\r\n\r\n   type<\/span>(<\/span>c_ptr<\/span>)<\/span> ::<\/span> conn<\/span>,<\/span> res<\/span>\u3000<\/span>\r\n   character<\/span>(:,<\/span> kind<\/span>=<\/span>c_char<\/span>),<\/span> allocatable<\/span> ::<\/span> query<\/span>,<\/span> conninfo<\/span>\r\n   integer<\/span> ::<\/span> i<\/span>,<\/span> port<\/span>\r\n   character<\/span>(<\/span>256<\/span>)<\/span> ::<\/span> str<\/span>,<\/span> host<\/span>,<\/span> dbname<\/span>,<\/span> user<\/span>,<\/span> password<\/span>\r\n<\/code><\/pre>\n
                \u8bf7\u6ce8\u610f\u8fd9\u91cc\u7684use :: libpq\u58f0\u660e\u3002\u8fd9\u4e2a\u6a21\u5757\u662fLibpq-Fortran\u7684\u6838\u5fc3\u6a21\u5757\u3002\u5728Libpq-Fortran\u4e2d\uff0c\u901a\u8fc7\u58f0\u660e\u4f7f\u7528\u8be5\u6a21\u5757\uff0c\u53ef\u4ee5\u4eceFortran\u4e2d\u4f7f\u7528libpq\u7684\u8fc7\u7a0b\u3002<\/p>\n
                \u63a5\u4e0b\u6765\u6709use, intrinsic::iso_c_binding\u7684\u58f0\u660e\u3002\u4e4b\u6240\u4ee5\u58f0\u660e\u8fd9\u4e2a\u662f\u56e0\u4e3a\u8be5\u8f6f\u4ef6\u5177\u6709C\u5e93\u7684\u76f4\u63a5\u63a5\u53e3\uff0c\u56e0\u6b64\u9700\u8981\u8fdb\u884cC\u6837\u5f0f\u7684\u7f16\u7a0b\uff0c\u5373\u63a5\u6536\u5bf9\u8c61\u6307\u9488\u4f5c\u4e3a\u51fd\u6570\u8fd4\u56de\u503c\u5e76\u5c06\u5176\u4f20\u9012\uff0ctype(c_ptr)::conn, res\u662f\u4e3a\u4e86\u5728\u8fd9\u79cd\u98ce\u683c\u4e0b\u7f16\u5199\u7a0b\u5e8f\u800c\u58f0\u660e\u7684C\u6307\u9488\u53d8\u91cf\u3002<\/p>\n
                \u6267\u884c\u90e8<\/h3>\n
                \u63a5\u4e0b\u6765\u6211\u4eec\u6765\u770b\u4e00\u4e0b\u6267\u884c\u8bed\u53e5\u3002<\/p>\n
                   print *<\/span>, '=== INPUT Database Information ==='<\/span>\r\n   print *<\/span>, '=== type \"q\" for quit          ==='<\/span>\r\n   write (<\/span>stdout, '(a)'<\/span>, advance<\/span>=<\/span>'no'<\/span>)<\/span> \"Hostname: \"<\/span>\r\n   read<\/span>  (<\/span>stdin, *<\/span>)<\/span> host\r\n   if<\/span> (<\/span>host ==<\/span> 'q'<\/span>)<\/span> stop\r\n\r\n   port =<\/span> 5432\r\n\r\n   write (<\/span>stdout, '(a)'<\/span>, advance<\/span>=<\/span>'no'<\/span>)<\/span> \"dbname: \"<\/span>\r\n   read<\/span>  (<\/span>stdin, *<\/span>)<\/span> dbname\r\n   if<\/span> (<\/span>dbname ==<\/span> 'q'<\/span>)<\/span> stop\r\n\r\n   write (<\/span>stdout, '(a)'<\/span>, advance<\/span>=<\/span>'no'<\/span>)<\/span> \"user: \"<\/span>\r\n   read<\/span>  (<\/span>stdin, *<\/span>)<\/span> user\r\n   if<\/span> (<\/span>user ==<\/span> 'q'<\/span>)<\/span> stop\r\n\r\n   write (<\/span>stdout, '(a)'<\/span>, advance<\/span>=<\/span>'no'<\/span>)<\/span> \"password: \"<\/span>\r\n   read<\/span>  (<\/span>stdin, *<\/span>)<\/span> password\r\n   if<\/span> (<\/span>password ==<\/span> 'q'<\/span>)<\/span> stop\r\n   print *<\/span>, \"=== END INPUT ===\"<\/span>\r\n\r\n   write(<\/span>str, '(a, i0, a)'<\/span>)<\/span> &\r\n      \"host=\"<\/span>\/\/trim(<\/span>adjustl(<\/span>host))<\/span>\/\/ &\r\n      \" port=\"<\/span>, port, &\r\n      \" dbname=\"<\/span>\/\/trim(<\/span>adjustl(<\/span>dbname))<\/span>\/\/ &\r\n      \" user=\"<\/span>\/\/trim(<\/span>adjustl(<\/span>user))<\/span>\/\/ &\r\n      \" password=\"<\/span>\/\/trim(<\/span>adjustl(<\/span>password))<\/span>\r\n      \r\n   conninfo =<\/span> str\r\n<\/code><\/pre>\n
                \u8fd9\u90e8\u5206\u4ee3\u7801\u8d1f\u8d23\u63a5\u6536\u8fde\u63a5\u4fe1\u606f\u7684\u8f93\u5165\u3002\u5b83\u5c06\u7528\u6237\u7684\u4fe1\u606f\u8f93\u5165\u6536\u96c6\u4e3a\u4e00\u4e2a\u56fa\u5b9a\u957f\u5ea6\u7684\u5b57\u7b26\u4e32\uff0c\u5e76\u5c06\u5176\u590d\u5236\u5230\u4e00\u4e2a\u53ef\u53d8\u957f\u5ea6\u7684\u5b57\u7b26\u4e32\u53d8\u91cf\u4e2d\u4f5c\u4e3aPostgreSQL\u8fde\u63a5\u5b57\u7b26\u4e32\u3002<\/p>\n
                \u5728\u4e0b\u4e00\u884c\u6267\u884c\u7684\u662f\u8fde\u63a5\u5230\u6570\u636e\u5e93\u7684\u64cd\u4f5c\u3002<\/p>\n
                   conn<\/span> =<\/span> PQconnectdb<\/span>(<\/span>conninfo<\/span>)<\/span>\r\n   if<\/span> (<\/span>PQstatus<\/span>(<\/span>conn<\/span>)<\/span> \/<\/span>=<\/span> 0<\/span>)<\/span> then<\/span>\r\n      print<\/span> *<\/span>,<\/span> PQerrorMessage<\/span>(<\/span>conn<\/span>)<\/span>\r\n      error stop<\/span>\r\n   end<\/span> if<\/span>\r\n<\/code><\/pre>\n
                \u4f7f\u7528\u53c2\u6570conninfo\u8c03\u7528\u51fd\u6570PQconnectdb\uff0c\u5e76\u5c06\u7ed3\u679c\u8d4b\u503c\u7ed9C\u6307\u9488\u7c7b\u578b\u53d8\u91cfconn\u3002\u8fd9\u4e2a\u6307\u9488\u5c06\u4f5c\u4e3a\u8fde\u63a5\u4fe1\u606f\u7684\u6807\u8bc6\u7b26\u4f9b\u7528\u6237\u4f7f\u7528\uff0c\u4f46\u65e0\u9700\u8003\u8651\u8fd9\u4e2a\u5bf9\u8c61\u7684\u5185\u90e8\u7ed3\u6784\u3002\u7d27\u968f\u5176\u540e\u7684if\u5757\u662f\u9519\u8bef\u5904\u7406\u3002\u5982\u679c\u65e0\u6cd5\u5efa\u7acb\u8fde\u63a5\uff0c\u5c06\u663e\u793a\u9519\u8bef\u6d88\u606f\u5e76\u7ed3\u675f\u7a0b\u5e8f\u3002<\/p>\n
                \u8fdb\u4e00\u6b65\u7f16\u5199\u5e76\u6267\u884cSQL\u4ee3\u7801\u7684\u4ee3\u7801\u4f1a\u51fa\u73b0\u3002<\/p>\n
                   query<\/span> =<\/span> \"select datname from pg_database;\"<\/span>\r\n   res<\/span> =<\/span> PQexec<\/span>(<\/span>conn<\/span>,<\/span> query<\/span>)<\/span>\r\n   if<\/span> (<\/span>PQstatus<\/span>(<\/span>conn<\/span>)<\/span> \/<\/span>=<\/span> 0<\/span> )<\/span> then<\/span>\r\n      print<\/span> *<\/span>,<\/span> PQerrorMessage<\/span>(<\/span>conn<\/span>)<\/span>\r\n   end<\/span> if<\/span>\r\n<\/code><\/pre>\n
                \u9996\u5148\uff0c\u6211\u4eec\u5c06SQL\u67e5\u8be2\u8bed\u53e5\u5199\u5165\u5b57\u7b26\u4e32\u53d8\u91cfquery\u3002\u7136\u540e\uff0c\u5c06query\u548cconn\u4f5c\u4e3a\u53c2\u6570\u4f20\u9012\u7ed9\u51fd\u6570PQexec\uff0c\u5e76\u5c06\u7ed3\u679c\u5b58\u50a8\u5728C\u6307\u9488\u53d8\u91cfres\u4e2d\u3002\u8fd9\u4e2aSQL\u67e5\u8be2\u7684\u610f\u601d\u662f\u201c\u4ece\u670d\u52a1\u5668\u4e0a\u7684\u6570\u636e\u5e93\u96c6\u5408\u4e2d\u83b7\u53d6\u6570\u636e\u5e93\u540d\u79f0\u7684\u5217\u8868\u201d\u3002\u63a5\u4e0b\u6765\u7684if\u5757\u662f\u4e0e\u4e4b\u524d\u4e00\u6837\u7684\u9519\u8bef\u5904\u7406\u3002<\/p>\n
                \u7136\u540e\uff0c\u5b83\u5c06\u8fdb\u5165\u4eceres\u5bf9\u8c61\u4e2d\u63d0\u53d6\u7ed3\u679c\u6570\u636e\u7684\u90e8\u5206\u3002<\/p>\n
                    print<\/span> *<\/span>,<\/span> \"=== Query Result===\"<\/span>\r\n    print<\/span> '(a, i0, 2x, i0)'<\/span>,<\/span> 'tuples, fields: '<\/span>,<\/span> PQntuples<\/span>(<\/span>res<\/span>),<\/span> PQnfields<\/span>(<\/span>res<\/span>)<\/span> \r\n \r\n    print<\/span> *<\/span>,<\/span> \"=== Available database names ===\"<\/span>\r\n    do<\/span> i<\/span> =<\/span> 0<\/span>,<\/span> PQntuples<\/span>(<\/span>res<\/span>)<\/span>-1<\/span>\r\n       print<\/span> *<\/span>,<\/span> PQgetvalue<\/span>(<\/span>res<\/span>,<\/span> i<\/span>,<\/span> 0<\/span>)<\/span>\r\n    end<\/span> do<\/span>\r\n<\/code><\/pre>\n
                \u9996\u5148\u8c03\u7528\u51fd\u6570PQntuples\u548cPQnfields\uff0c\u663e\u793ares\u5bf9\u8c61\u7684\u7ed3\u679c\u884c\u6570\u548c\u5217\u6570\u3002\u7136\u540e\uff0c\u6839\u636e\u884c\u6570\u5faa\u73af\uff0c\u4f7f\u7528\u51fd\u6570PQgetvalue\u63d0\u53d6\u7b2ci\u884c\u7b2c0\u5217\u7684\u6570\u636e\u5e76\u663e\u793a\u51fa\u6765\u3002\u8bf7\u6ce8\u610f\uff0c\u8fd9\u91cc\u4f7f\u7528\u4e86C\u8bed\u8a00\u89c4\u5219\u4e2d\u7684\u57fa\u4e8e0\u7684\u7d22\u5f15\u3002<\/p>\n
                \u6700\u540e\u8c03\u7528PQclear\u51fd\u6570\u548cPQfinish\u51fd\u6570\u91ca\u653e\u7ed3\u679c\u5bf9\u8c61\uff0c\u5e76\u7ed3\u675f\u8fde\u63a5\u3002<\/p>\n
                   call<\/span> PQclear<\/span>(<\/span>res<\/span>)<\/span>\r\n   call<\/span> PQfinish<\/span>(<\/span>conn<\/span>)<\/span>\r\n<\/code><\/pre>\n
                \u6267\u884c\u7ed3\u679c<\/h3>\n
                \u6309\u7167\u8fd9\u6837\u7684\u65b9\u5f0f\u7f16\u5199\u7684\u7a0b\u5e8f\u5c06\u5728\u6267\u884c\u65f6\uff0c\u5728\u7ec8\u7aef\u4e0a\u8f93\u51fa\u5982\u4e0b\u6240\u793a\u7684\u663e\u793a\uff0c\u5c31\u50cf\u5728\u4e0a\u9762\u6267\u884c\u7684\u4e00\u6837\u3002<\/p>\n
                ===<\/span> Query Result<\/span>===<\/span>\r\ntuples, fields: 3  1\r\n===<\/span> Available database names ===<\/span>\r\npostgres\r\ntemplate1\r\ntemplate0\r\n<\/code><\/pre>\n
                \u5982\u679c\u5728\u8fd9\u91cc\u81f3\u5c11\u663e\u793a\u51fa\uff08\u5728PostgreSQL\u670d\u52a1\u5668\u7684\u9ed8\u8ba4\u914d\u7f6e\u4e0b\uff09postgres\u3001template1\u3001template0\u8fd9\u4e09\u4e2a\u6570\u636e\u5e93\u540d\u79f0\uff0c\u90a3\u4e48\u5c31\u8868\u793a\u6210\u529f\u4e86\u3002<\/p>\n
                \u6700\u540e<\/h2>\n
                \u6211\u4eec\u53d1\u5e03\u4e86\u4e00\u4e2a\u7528\u4e8e\u8bbf\u95eePostgreSQL\u5b98\u65b9\u5e93libpq\u7684Fortran\u6a21\u5757Libpq-Fortran\uff0c\u5e76\u4ecb\u7ecd\u4e86\u5982\u4f55\u9996\u6b21\u4f7f\u7528\u5b83\u3002<\/p>\n
                \u7531\u4e8eLibpq-Fortran\u53ea\u662f\u76f4\u63a5\u5c01\u88c5\u4e86libpq\uff0c\u56e0\u6b64\u5728\u5b9e\u9645\u7ba1\u7406\u5e94\u7528\u7a0b\u5e8f\u6570\u636e\u65f6\u9700\u8981\u6709\u4e00\u5b9a\u7684SQL\u548c\u6570\u636e\u5e93\u8bbe\u8ba1\u77e5\u8bc6\u3002\u7279\u522b\u662f\u5173\u4e8e\u4f7f\u7528PostgreSQL\u6570\u636e\u5e93\u6765\u5b9e\u73b0\u6570\u503c\u8ba1\u7b97\u6570\u636e\u4fdd\u5b58\u7684\u65b9\u6cd5\uff0c\u56e0\u7bc7\u5e45\u8fc7\u957f\uff0c\u672c\u6587\u5c06\u5728\u53e6\u4e00\u7bc7\u6587\u7ae0\u4e2d\u8be6\u7ec6\u4ecb\u7ecd\u3002<\/p>\n
                \u611f\u8c22<\/h2>\n
                \u53c2\u8003\u6587\u732e1\u306f@cure_honey\u3055\u3093\u306b\u6559\u3048\u3066\u3044\u305f\u3060\u304d\u307e\u3057\u305f\u3002\u3042\u308a\u304c\u3068\u3046\u3054\u3056\u3044\u307e\u3059\u3002<\/p>\n
                \u3053\u306e\u30e9\u30a4\u30d6\u30e9\u30ea\u3092\u4f5c\u3063\u305f\u306e\u306f\u30012023\u5e749\u670810\u65e5\u306e\u30e2\u30c0\u30f3Fortran\u52c9\u5f37\u4f1a.for\u3067\u306e\u30c7\u30a3\u30b9\u30ab\u30c3\u30b7\u30e7\u30f3\u304c\u304d\u3063\u304b\u3051\u306e\u4e00\u3064\u3067\u3059\u3002<\/p>\n
                \u5f15\u7528\u6587\u732e<\/h2>\n
                  SQLite -\u4f7f\u7528\u73b0\u4ee3Fortran\u8fdb\u884c\u7f16\u7a0b\uff0c\u7531Philipp Engel\u64b0\u5199<\/ol>\n
                  \u88dc\u5145<\/h2>\n
                  \u4ee5\u4e0b\u662fdemo.f90\u7a0b\u5e8f\u7684\u6574\u4f53\u5185\u5bb9\u3002<\/p>\n
                  program<\/span> demo<\/span>\r\n   use<\/span> ::<\/span> libpq<\/span>\r\n   use<\/span>,<\/span> intrinsic<\/span> ::<\/span> iso_c_binding<\/span>\r\n   use<\/span>,<\/span> intrinsic<\/span> ::<\/span> iso_fortran_env<\/span>,<\/span> only<\/span>:<\/span>stdout<\/span>=><\/span>output_unit<\/span>,<\/span> stdin<\/span>=><\/span>input_unit<\/span>\r\n\r\n   type<\/span>(<\/span>c_ptr<\/span>)<\/span> ::<\/span> conn<\/span>,<\/span> res<\/span>\r\n   character<\/span>(:,<\/span> kind<\/span>=<\/span>c_char<\/span>),<\/span> allocatable<\/span> ::<\/span> sql<\/span>,<\/span> conninfo<\/span>\r\n   integer<\/span> ::<\/span> i<\/span>,<\/span> port<\/span>\r\n   character<\/span>(<\/span>256<\/span>)<\/span> ::<\/span> str<\/span>,<\/span> host<\/span>,<\/span> dbname<\/span>,<\/span> user<\/span>,<\/span> password<\/span>\r\n\r\n   print<\/span> *<\/span>,<\/span> '=== INPUT Database Information ==='<\/span>\r\n   print<\/span> *<\/span>,<\/span> '=== type \"q\" for quit          ==='<\/span>\r\n   \r\n   write<\/span> (<\/span>stdout<\/span>,<\/span> '(a)'<\/span>,<\/span> advance<\/span>=<\/span>'no'<\/span>)<\/span> \"Hostname: \"<\/span>\r\n   read<\/span>  (<\/span>stdin<\/span>,<\/span> *<\/span>)<\/span> host<\/span>\r\n   if<\/span> (<\/span>host<\/span> ==<\/span> 'q'<\/span>)<\/span> stop<\/span>\r\n\r\n   port<\/span> =<\/span> 5432<\/span>\r\n\r\n   write<\/span> (<\/span>stdout<\/span>,<\/span> '(a)'<\/span>,<\/span> advance<\/span>=<\/span>'no'<\/span>)<\/span> \"dbname: \"<\/span>\r\n   read<\/span>  (<\/span>stdin<\/span>,<\/span> *<\/span>)<\/span> dbname<\/span>\r\n   if<\/span> (<\/span>dbname<\/span> ==<\/span> 'q'<\/span>)<\/span> stop<\/span>\r\n\r\n   write<\/span> (<\/span>stdout<\/span>,<\/span> '(a)'<\/span>,<\/span> advance<\/span>=<\/span>'no'<\/span>)<\/span> \"user: \"<\/span>\r\n   read<\/span>  (<\/span>stdin<\/span>,<\/span> *<\/span>)<\/span> user<\/span>\r\n   if<\/span> (<\/span>user<\/span> ==<\/span> 'q'<\/span>)<\/span> stop<\/span>\r\n\r\n   write<\/span> (<\/span>stdout<\/span>,<\/span> '(a)'<\/span>,<\/span> advance<\/span>=<\/span>'no'<\/span>)<\/span> \"password: \"<\/span>\r\n   read<\/span>  (<\/span>stdin<\/span>,<\/span> *<\/span>)<\/span> password<\/span>\r\n   if<\/span> (<\/span>password<\/span> ==<\/span> 'q'<\/span>)<\/span> stop<\/span>\r\n   print<\/span> *<\/span>,<\/span> \"=== END INPUT ===\"<\/span>\r\n\r\n   write<\/span>(<\/span>str<\/span>,<\/span> '(a, i0, a)'<\/span>)<\/span> &<\/span>\r\n      \"host=\"<\/span>\/\/<\/span>trim<\/span>(<\/span>adjustl<\/span>(<\/span>host<\/span>))\/\/<\/span> &<\/span>\r\n      \" port=\"<\/span>,<\/span> port<\/span>,<\/span> &<\/span>\r\n      \" dbname=\"<\/span>\/\/<\/span>trim<\/span>(<\/span>adjustl<\/span>(<\/span>dbname<\/span>))\/\/<\/span> &<\/span>\r\n      \" user=\"<\/span>\/\/<\/span>trim<\/span>(<\/span>adjustl<\/span>(<\/span>user<\/span>))\/\/<\/span> &<\/span>\r\n      \" password=\"<\/span>\/\/<\/span>trim<\/span>(<\/span>adjustl<\/span>(<\/span>password<\/span>))<\/span>\r\n     \r\n   conninfo<\/span> =<\/span> str<\/span>\r\n\r\n   conn<\/span> =<\/span> PQconnectdb<\/span>(<\/span>conninfo<\/span>)<\/span>\r\n   if<\/span> (<\/span>PQstatus<\/span>(<\/span>conn<\/span>)<\/span> \/<\/span>=<\/span> 0<\/span>)<\/span> then<\/span>\r\n      print<\/span> *<\/span>,<\/span> PQerrorMessage<\/span>(<\/span>conn<\/span>)<\/span>\r\n      error stop<\/span>\r\n   end<\/span> if<\/span>\r\n\r\n   ! The query to retrieve the names of databases within a database cluster is: <\/span>\r\n   sql<\/span> =<\/span> \"select datname from pg_database;\"<\/span>\r\n   res<\/span> =<\/span> PQexec<\/span>(<\/span>conn<\/span>,<\/span> sql<\/span>)<\/span>\r\n   if<\/span> (<\/span>PQstatus<\/span>(<\/span>conn<\/span>)<\/span> \/<\/span>=<\/span> 0<\/span> )<\/span> then<\/span>\r\n      print<\/span> *<\/span>,<\/span> PQerrorMessage<\/span>(<\/span>conn<\/span>)<\/span>\r\n   end<\/span> if<\/span>\r\n\r\n   print<\/span> *<\/span>,<\/span> \"=== Query Result===\"<\/span>\r\n   print<\/span> '(a, i0, 2x, i0)'<\/span>,<\/span> 'tuples, fields: '<\/span>,<\/span> PQntuples<\/span>(<\/span>res<\/span>),<\/span> PQnfields<\/span>(<\/span>res<\/span>)<\/span> \r\n\r\n   print<\/span> *<\/span>,<\/span> \"=== Available database names ===\"<\/span>\r\n   do<\/span> i<\/span> =<\/span> 0<\/span>,<\/span> PQntuples<\/span>(<\/span>res<\/span>)<\/span>-1<\/span>\r\n      print<\/span> *<\/span>,<\/span> PQgetvalue<\/span>(<\/span>res<\/span>,<\/span> i<\/span>,<\/span> 0<\/span>)<\/span>\r\n   end<\/span> do<\/span>\r\n\r\n   call<\/span> PQclear<\/span>(<\/span>res<\/span>)<\/span>\r\n   call<\/span> PQfinish<\/span>(<\/span>conn<\/span>)<\/span>\r\n\r\nend<\/span> program<\/span> demo<\/span>\r\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"
                  \u7b80\u800c\u8a00\u4e4b PostgreSQL\u5177\u6709\u7528\u4e8e\u524d\u7aef\u7684C\u5e93libpq\u3002\u501f\u52a9\u73b0\u4ee3Fortran\u7684C\u4e92\u64cd\u4f5c\u529f\u80fd\uff0c\u6211\u4eec\u521b\u5efa\u4e86\u4e00 […]<\/p>\n","protected":false},"author":5,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-41952","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"yoast_head":"\n\u6211\u60f3\u8981\u5728Fortran\u4e2d\u4f7f\u7528\u6570\u636e\u5e93\uff01 - Blog - Silicon Cloud<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/www.silicloud.com\/zh\/blog\/\u6211\u60f3\u8981\u5728fortran\u4e2d\u4f7f\u7528\u6570\u636e\u5e93\uff01\/\" \/>\n<meta property=\"og:locale\" content=\"zh_CN\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"\u6211\u60f3\u8981\u5728Fortran\u4e2d\u4f7f\u7528\u6570\u636e\u5e93\uff01\" \/>\n<meta property=\"og:description\" content=\"\u7b80\u800c\u8a00\u4e4b PostgreSQL\u5177\u6709\u7528\u4e8e\u524d\u7aef\u7684C\u5e93libpq\u3002\u501f\u52a9\u73b0\u4ee3Fortran\u7684C\u4e92\u64cd\u4f5c\u529f\u80fd\uff0c\u6211\u4eec\u521b\u5efa\u4e86\u4e00 […]\" \/>\n<meta property=\"og:url\" content=\"https:\/\/www.silicloud.com\/zh\/blog\/\u6211\u60f3\u8981\u5728fortran\u4e2d\u4f7f\u7528\u6570\u636e\u5e93\uff01\/\" \/>\n<meta property=\"og:site_name\" content=\"Blog - Silicon Cloud\" \/>\n<meta property=\"article:published_time\" content=\"2023-02-01T23:48:41+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2024-04-29T12:30:32+00:00\" \/>\n<meta name=\"author\" content=\"\u6e05, \u5b87\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"\u4f5c\u8005\" \/>\n\t<meta name=\"twitter:data1\" content=\"\u6e05, \u5b87\" \/>\n\t<meta name=\"twitter:label2\" content=\"\u9884\u8ba1\u9605\u8bfb\u65f6\u95f4\" \/>\n\t<meta name=\"twitter:data2\" content=\"4 \u5206\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/www.silicloud.com\/zh\/blog\/%e6%88%91%e6%83%b3%e8%a6%81%e5%9c%a8fortran%e4%b8%ad%e4%bd%bf%e7%94%a8%e6%95%b0%e6%8d%ae%e5%ba%93%ef%bc%81\/\",\"url\":\"https:\/\/www.silicloud.com\/zh\/blog\/%e6%88%91%e6%83%b3%e8%a6%81%e5%9c%a8fortran%e4%b8%ad%e4%bd%bf%e7%94%a8%e6%95%b0%e6%8d%ae%e5%ba%93%ef%bc%81\/\",\"name\":\"\u6211\u60f3\u8981\u5728Fortran\u4e2d\u4f7f\u7528\u6570\u636e\u5e93\uff01 - Blog - Silicon Cloud\",\"isPartOf\":{\"@id\":\"https:\/\/www.silicloud.com\/zh\/blog\/#website\"},\"datePublished\":\"2023-02-01T23:48:41+00:00\",\"dateModified\":\"2024-04-29T12:30:32+00:00\",\"author\":{\"@id\":\"https:\/\/www.silicloud.com\/zh\/blog\/#\/schema\/person\/1a6ecd3d914d22a5ac32791ffc1fbd8e\"},\"breadcrumb\":{\"@id\":\"https:\/\/www.silicloud.com\/zh\/blog\/%e6%88%91%e6%83%b3%e8%a6%81%e5%9c%a8fortran%e4%b8%ad%e4%bd%bf%e7%94%a8%e6%95%b0%e6%8d%ae%e5%ba%93%ef%bc%81\/#breadcrumb\"},\"inLanguage\":\"zh-Hans\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/www.silicloud.com\/zh\/blog\/%e6%88%91%e6%83%b3%e8%a6%81%e5%9c%a8fortran%e4%b8%ad%e4%bd%bf%e7%94%a8%e6%95%b0%e6%8d%ae%e5%ba%93%ef%bc%81\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/www.silicloud.com\/zh\/blog\/%e6%88%91%e6%83%b3%e8%a6%81%e5%9c%a8fortran%e4%b8%ad%e4%bd%bf%e7%94%a8%e6%95%b0%e6%8d%ae%e5%ba%93%ef%bc%81\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"\u9996\u9875\",\"item\":\"https:\/\/www.silicloud.com\/zh\/blog\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"\u6211\u60f3\u8981\u5728Fortran\u4e2d\u4f7f\u7528\u6570\u636e\u5e93\uff01\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/www.silicloud.com\/zh\/blog\/#website\",\"url\":\"https:\/\/www.silicloud.com\/zh\/blog\/\",\"name\":\"Blog - Silicon Cloud\",\"description\":\"\",\"inLanguage\":\"zh-Hans\"},{\"@type\":\"Person\",\"@id\":\"https:\/\/www.silicloud.com\/zh\/blog\/#\/schema\/person\/1a6ecd3d914d22a5ac32791ffc1fbd8e\",\"name\":\"\u6e05, \u5b87\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"zh-Hans\",\"@id\":\"https:\/\/www.silicloud.com\/zh\/blog\/#\/schema\/person\/image\/\",\"url\":\"https:\/\/secure.gravatar.com\/avatar\/4b2016c18459a605fc469c7566608f5686491baa112d0871ee613f61b7210565?s=96&d=mm&r=g\",\"contentUrl\":\"https:\/\/secure.gravatar.com\/avatar\/4b2016c18459a605fc469c7566608f5686491baa112d0871ee613f61b7210565?s=96&d=mm&r=g\",\"caption\":\"\u6e05, \u5b87\"},\"url\":\"https:\/\/www.silicloud.com\/zh\/blog\/author\/qingyu\/\"},{\"@type\":\"ImageObject\",\"inLanguage\":\"zh-Hans\",\"@id\":\"https:\/\/www.silicloud.com\/zh\/blog\/%e6%88%91%e6%83%b3%e8%a6%81%e5%9c%a8fortran%e4%b8%ad%e4%bd%bf%e7%94%a8%e6%95%b0%e6%8d%ae%e5%ba%93%ef%bc%81\/#local-main-organization-logo\",\"url\":\"\",\"contentUrl\":\"\",\"caption\":\"Blog - Silicon Cloud\"}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"\u6211\u60f3\u8981\u5728Fortran\u4e2d\u4f7f\u7528\u6570\u636e\u5e93\uff01 - Blog - Silicon Cloud","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/www.silicloud.com\/zh\/blog\/\u6211\u60f3\u8981\u5728fortran\u4e2d\u4f7f\u7528\u6570\u636e\u5e93\uff01\/","og_locale":"zh_CN","og_type":"article","og_title":"\u6211\u60f3\u8981\u5728Fortran\u4e2d\u4f7f\u7528\u6570\u636e\u5e93\uff01","og_description":"\u7b80\u800c\u8a00\u4e4b PostgreSQL\u5177\u6709\u7528\u4e8e\u524d\u7aef\u7684C\u5e93libpq\u3002\u501f\u52a9\u73b0\u4ee3Fortran\u7684C\u4e92\u64cd\u4f5c\u529f\u80fd\uff0c\u6211\u4eec\u521b\u5efa\u4e86\u4e00 […]","og_url":"https:\/\/www.silicloud.com\/zh\/blog\/\u6211\u60f3\u8981\u5728fortran\u4e2d\u4f7f\u7528\u6570\u636e\u5e93\uff01\/","og_site_name":"Blog - Silicon Cloud","article_published_time":"2023-02-01T23:48:41+00:00","article_modified_time":"2024-04-29T12:30:32+00:00","author":"\u6e05, \u5b87","twitter_card":"summary_large_image","twitter_misc":{"\u4f5c\u8005":"\u6e05, \u5b87","\u9884\u8ba1\u9605\u8bfb\u65f6\u95f4":"4 \u5206"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/www.silicloud.com\/zh\/blog\/%e6%88%91%e6%83%b3%e8%a6%81%e5%9c%a8fortran%e4%b8%ad%e4%bd%bf%e7%94%a8%e6%95%b0%e6%8d%ae%e5%ba%93%ef%bc%81\/","url":"https:\/\/www.silicloud.com\/zh\/blog\/%e6%88%91%e6%83%b3%e8%a6%81%e5%9c%a8fortran%e4%b8%ad%e4%bd%bf%e7%94%a8%e6%95%b0%e6%8d%ae%e5%ba%93%ef%bc%81\/","name":"\u6211\u60f3\u8981\u5728Fortran\u4e2d\u4f7f\u7528\u6570\u636e\u5e93\uff01 - Blog - Silicon Cloud","isPartOf":{"@id":"https:\/\/www.silicloud.com\/zh\/blog\/#website"},"datePublished":"2023-02-01T23:48:41+00:00","dateModified":"2024-04-29T12:30:32+00:00","author":{"@id":"https:\/\/www.silicloud.com\/zh\/blog\/#\/schema\/person\/1a6ecd3d914d22a5ac32791ffc1fbd8e"},"breadcrumb":{"@id":"https:\/\/www.silicloud.com\/zh\/blog\/%e6%88%91%e6%83%b3%e8%a6%81%e5%9c%a8fortran%e4%b8%ad%e4%bd%bf%e7%94%a8%e6%95%b0%e6%8d%ae%e5%ba%93%ef%bc%81\/#breadcrumb"},"inLanguage":"zh-Hans","potentialAction":[{"@type":"ReadAction","target":["https:\/\/www.silicloud.com\/zh\/blog\/%e6%88%91%e6%83%b3%e8%a6%81%e5%9c%a8fortran%e4%b8%ad%e4%bd%bf%e7%94%a8%e6%95%b0%e6%8d%ae%e5%ba%93%ef%bc%81\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/www.silicloud.com\/zh\/blog\/%e6%88%91%e6%83%b3%e8%a6%81%e5%9c%a8fortran%e4%b8%ad%e4%bd%bf%e7%94%a8%e6%95%b0%e6%8d%ae%e5%ba%93%ef%bc%81\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"\u9996\u9875","item":"https:\/\/www.silicloud.com\/zh\/blog\/"},{"@type":"ListItem","position":2,"name":"\u6211\u60f3\u8981\u5728Fortran\u4e2d\u4f7f\u7528\u6570\u636e\u5e93\uff01"}]},{"@type":"WebSite","@id":"https:\/\/www.silicloud.com\/zh\/blog\/#website","url":"https:\/\/www.silicloud.com\/zh\/blog\/","name":"Blog - Silicon Cloud","description":"","inLanguage":"zh-Hans"},{"@type":"Person","@id":"https:\/\/www.silicloud.com\/zh\/blog\/#\/schema\/person\/1a6ecd3d914d22a5ac32791ffc1fbd8e","name":"\u6e05, \u5b87","image":{"@type":"ImageObject","inLanguage":"zh-Hans","@id":"https:\/\/www.silicloud.com\/zh\/blog\/#\/schema\/person\/image\/","url":"https:\/\/secure.gravatar.com\/avatar\/4b2016c18459a605fc469c7566608f5686491baa112d0871ee613f61b7210565?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/4b2016c18459a605fc469c7566608f5686491baa112d0871ee613f61b7210565?s=96&d=mm&r=g","caption":"\u6e05, \u5b87"},"url":"https:\/\/www.silicloud.com\/zh\/blog\/author\/qingyu\/"},{"@type":"ImageObject","inLanguage":"zh-Hans","@id":"https:\/\/www.silicloud.com\/zh\/blog\/%e6%88%91%e6%83%b3%e8%a6%81%e5%9c%a8fortran%e4%b8%ad%e4%bd%bf%e7%94%a8%e6%95%b0%e6%8d%ae%e5%ba%93%ef%bc%81\/#local-main-organization-logo","url":"","contentUrl":"","caption":"Blog - Silicon Cloud"}]}},"_links":{"self":[{"href":"https:\/\/www.silicloud.com\/zh\/blog\/wp-json\/wp\/v2\/posts\/41952","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.silicloud.com\/zh\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.silicloud.com\/zh\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.silicloud.com\/zh\/blog\/wp-json\/wp\/v2\/users\/5"}],"replies":[{"embeddable":true,"href":"https:\/\/www.silicloud.com\/zh\/blog\/wp-json\/wp\/v2\/comments?post=41952"}],"version-history":[{"count":2,"href":"https:\/\/www.silicloud.com\/zh\/blog\/wp-json\/wp\/v2\/posts\/41952\/revisions"}],"predecessor-version":[{"id":87479,"href":"https:\/\/www.silicloud.com\/zh\/blog\/wp-json\/wp\/v2\/posts\/41952\/revisions\/87479"}],"wp:attachment":[{"href":"https:\/\/www.silicloud.com\/zh\/blog\/wp-json\/wp\/v2\/media?parent=41952"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.silicloud.com\/zh\/blog\/wp-json\/wp\/v2\/categories?post=41952"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.silicloud.com\/zh\/blog\/wp-json\/wp\/v2\/tags?post=41952"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}