声明要在程序最开始全部写完，不能在执行语句下面声明。第5行就开始执行语句了，后面你再声明就会出错，你把后面的声明语句写在第5句前面就可以。
要把complex*8 :: a complex*8 :: det complex*8 :: deta1三条语句放到可执行语句之前。移到最开始就可以了。
