程序自动调整MARC的执行优先级

喜欢用MARC的一个重要原因是这个程序比较“安静”：你可以让它运行，然后到任务管理器里面把程序的优先级设定为“低于标准”甚至“低”。然后你可以上网、看论文等等，几乎对正常使用没有什么干扰，MARC会在后台见缝插针的利用CPU的空闲，又会很知趣的在关键时候让开，使得“闲来无事，算个东西玩”成为可能，很多数据也就是在这样的情况下算出来的。相比如ANSYS，一运行生怕全世界不知道，经常让机器变得迟钝无比，导致的后果是一旦要算题，就是一件天大的事情，赶紧存盘word等文件，打电话约人，然后去搓饭或者打球，在电脑跟前也干不了什么活。总之，ANSYS工作的时候电脑就之属于它一个了，呵呵。

如果觉得每次都手工设置进程优先级太麻烦得话，可以用以下一段小程序就能让程序自动设置优先级。

SUBROUTINE UEDINC(INC,INCSUB)
IMPLICIT REAL *8 (A-H, O-Z)

call Thread()

RETURN
END

subroutine Thread()
Use kernel32
INTEGER(4) CurrentProcess

! THREAD_PRIORITY_ABOVE_NORMAL
! THREAD_PRIORITY_BELOW_NORMAL
! THREAD_PRIORITY_HIGHEST
! THREAD_PRIORITY_IDLE
! THREAD_PRIORITY_LOWEST
! THREAD_PRIORITY_NORMAL
! THREAD_PRIORITY_TIME_CRITICAL

CurrentProcess=GetCurrentThread()
I=SetThreadPriority(CurrentProcess, THREAD_PRIORITY_HIGHEST)
return
end