Originally posted by 贺仪 at 2011-04-26 22:12:33:
我在编译的时候，前面就有错误呀……

ztt.f90:28.23:

          ALLOCATE(coef(npw))
                      1
Error: Syntax error in ALLOCATE statement at (1)
ztt.f90:29.21:

          ALLOCATE(ac(npw,200))
                    1
Error: Syntax error in ALLOCATE statement at (1)
ztt.f90:32.40:

               read(12,*) eval, fweight, (coef(i),i=1,npw)
                                       1
Error: Expected variable in READ statement at (1)
ztt.f90:40.41:

                       ac(i,ic) = coef(i)
                                        1
Error: Unexpected STATEMENT FUNCTION statement at (1)
ztt.f90:35.57:

        write(19,'(5X,I3,5X,f8.4,5x,f8.4)') iband, dreal(eval), fweight
                                                        1
Error: Type of argument 'a' in call to 'dreal' at (1) should be COMPLEX(8), not REAL(4)
ztt.f90:46.26:

           DEALLOCATE(coef)
                         1
Error: Expression in DEALLOCATE statement at (1) must be ALLOCATABLE or a POINTER

100    FORMAT('k-point #',I3,':  ',(3f7.4),'    npw=',I6)

Originally posted by snoopyzhao at 2011-04-26 08:33:16:
这句话，语法上没有问题啊，至少这里可以编译通过……

你是不是不想输出结果中有那对括号？？

CODE:

100    FORMAT('k-point #',I3,':  ',(3f7.4),'    npw=',I6)