>>439
種別型パラメタがあってないのかも。
・E(I)=1.0D00/DSQRT(DREAL(X(I,I),KIND=8))
・E(I)=1.0D00/DSQRT(DBLE(X(I,I)))
のどっちかでコンパイル通ったりしない？

種別型パラメタって、
REAL*8の"*8"とかREAL(8)の"(8)"ってやつね。