----赖格英-----

记忆不好了,记录工作中的点点滴滴....

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

09 2018 档案

摘要:PROGRAM parallel_01 USE omp_lib IMPLICIT NONE INTEGER :: i,j INTEGER(4) :: time_begin, time_end, time_rate REAL, DIMENSION(1:50,1:50) :: f, g REAL :: k WRITE(*,*) '开始进行... 阅读全文
posted @ 2018-09-27 15:33 向北方 阅读(2094) 评论(0) 推荐(1) 编辑

摘要:本程序在Delphi 2010上测试过,没有问题。 阅读全文
posted @ 2018-09-23 11:53 向北方 阅读(966) 评论(0) 推荐(0) 编辑

摘要:本文来自 爱好者8888 的CSDN 博客 ,全文地址请点击:https://blog.csdn.net/kpc2000/article/details/17066823?utm_source=copy 第一种方法delphi 快速导出excel uses ComObj,clipbrd; funct 阅读全文
posted @ 2018-09-23 00:35 向北方 阅读(9412) 评论(0) 推荐(0) 编辑

摘要:在delphi和intel fortran下实证过。 阅读全文
posted @ 2018-09-15 21:07 向北方 阅读(469) 评论(0) 推荐(0) 编辑

摘要:http://fcode.cn/guide-58-1.html 阅读全文
posted @ 2018-09-15 13:08 向北方 阅读(1440) 评论(0) 推荐(0) 编辑

摘要:此函数库提供了 Visual Fortran 上获取硬盘ID,CPU编号,windows安装时间及文件头部校验的四个函数。可用于简单的程序加密。(但切勿用于商业性很强的地方) 近期,不少朋友向笔者询问 Fortran 如何获得网卡地址,硬盘ID,CPU编号等。对此,笔者给出一个自己书写的简单的函数库 阅读全文
posted @ 2018-09-11 21:29 向北方 阅读(1649) 评论(0) 推荐(0) 编辑

摘要:Unit CPUid; Interface Type TCpuType = (cpu8086, cpu286, cpu386, cpu486, cpuPentium); Function CpuType : TCpuType; Function CpuTypeString : String; Implementation Uses SysUtils; ... 阅读全文
posted @ 2018-09-11 21:22 向北方 阅读(1504) 评论(0) 推荐(0) 编辑

摘要:以前写了个获取硬盘序列号的fortran程序,但未经实证 program FortranDemo Use Kernel32 Implicit None Interface SUBROUTINE GetDiskSerialNumber1(drive, pout, ... 阅读全文
posted @ 2018-09-11 21:18 向北方 阅读(1152) 评论(0) 推荐(0) 编辑