子函数调用子函数时，出现重大问题。
  具体 如上传文件中所示。
  具体情况如此描述：
  本人的目的是编写一个求矩阵的逆的函数，当在主函数中直接求解逆时（其中有调用别的子函数） 结果良好。
   当把求逆部分 编成一个子函数而在需要求逆时直接调用时，出现的结果 一部分完好，一部分出现了类似与  （E-308）这样的数，这让我感到很奇怪。调试半天未果，请教了不少人也是没有找到原因。
  因为初学FORTRAN，而子函数调用子函数也是第一次尝试，这个地方卡住了我，所以急切期待高手指点一二，不甚感谢。
 
  请教高手 告知原委。