八月4号到这个月底，母亲在宣武医院住了近一个月的院，总算是平安的要出院了。

母亲得的是脑膜瘤，看核磁的片子是在小脑后部，有鸡蛋大小。母亲还有心脏病高血压，这对于开颅手术来说都是很危险的，因为需要全身麻醉，怕心脏承受不了。怕老妈担心，还是对她说这是个小手术，让她放心。

8月12日手术，早上准备好后9点进手术室，经过漫长的等待6个小时后终于看到大夫出来并说了手术成功，还看到了拿出来的脑瘤。

在重症监护室住了2天后转入病房，以为慢慢恢复就会好起来，可实际上还是出现了危险。

8月18日，晚，老妈头开始疼痛难忍，一点都不敢动，稍一动看到头上疼的汗就出来了。

找大夫，没找到，打了几个电话，找到值班大夫，立刻去做CT，值班大夫不敢确定方案，找到主任商量。一会把我和父亲叫到重症值班室，情况是脑内积水，颅压过高，看了片子，脑室内扩了很大了，颅压再高就可能发生脑疝（即脑因各空腔压力不同发生移位）随时有生命危险。

方案有二：1，脑穿引流，即大脑部开洞，然后针穿过大脑让脑室内积水流出。这可能有碰到大脑内血管的危险。但一般不会有生命危险。

     2， 保守治疗，继续用药，如果无效将随时有生命危险。

医生让家属拿方案，并说，如果已经昏迷那就没的选择，只能引流，但那时候能否救过来很难说。在内心矛盾举棋不定的时候我去了老妈身边问她感觉怎么样，老妈说不动还可以忍受，根据母亲的感受，决定先保守治疗，如果疼痛加重再选择脑穿。

随后2天，疼痛没有加重，到第三天，减轻了一些。但还是疼得水都不能喝，喝得水都吐出来了。吐水就得转头，头一动就疼的不行，当时真怕母亲咳，一咳颅压肯定要增高，这是相当危险的事情。

     主要药物有两种，一个是甘露醇，起到排脑积水的作用，副作用是用量大了会肾衰竭。另一个是地塞米松，起到降低人体免疫的作用，也就是减少吞噬细胞对伤口的反应来减少积水。这是激素累药物，也有副作用，会引起骨质疏松等。用药完全是在一种平衡间来调节。

     随后的日子疼痛减轻了，也可以进食了，并渐增大。

     快要出院了，记录一下治疗过程。愿老妈今后身体健康！

     

 

 

一直想知道fortran怎么调用外部可执行文件，今天终于通过一个人的网页的一篇文章中得到了一些信息，后来找了fortran的help：

SYSTEM

Portability Function: Sends a command to the shell as if it had been typed at the command line.

Module: USE DFPORT

Syntax

result = SYSTEM (string)

string
(Input) Character*(*). Operating system command.

Results:

The result is of type INTEGER(4). The result is the exit status of the shell command. If -1, use IERRNO to retrieve the error. Errors can be one of the following:

• E2BIG: The argument list is too long.
• ENOENT: The command interpreter cannot be found.
• ENOEXEC: The command interpreter file has an invalid format and is not executable.
• ENOMEM: Not enough system resources are available to execute the command.

On WNT systems, the calling process waits until the command terminates. On W9* systems, the calling process does not currently wait in all cases; however, this may change in future implementations. To insure compatibility and consistent behavior, an image can be invoked directly by using the Win32 API CreateProcess( ) in your Fortran code.

Commands run with the SYSTEM routine are run in a separate shell. Defaults set with the SYSTEM function, such as current working directory or environment variables, do not affect the environment the calling program runs in.

The command line character limit for the SYSTEM function is the same limit that your operating system command interpreter accepts.

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

See Also: SYSTEMQQ

Example

   USE DFPORT
   INTEGER(4) I, errnum
   I = SYSTEM("dir > file.lst")
   If (I .eq. -1) then
     errnum = ierrno( )
     print *, 'Error ', errnum
   end if
   END
还有在fortran内部给外部文件改名字：

integer(4) function RENAME( from , to )
改變檔案名稱，改名成功時傳回0。
character*(*) from 原始檔名
character*(*) to 新檔名
程式執行時，可以經由函式SYSTEM 再去呼叫另外一個程式來執行。

申请了个Spaces