[交流] 【求助成功】单机编译并行VASP，出现语法错误

mpif90 -I/opt/intel/mkl/10.2.5.035/include/fftw -FR -lower_case  -O2  -c mpi.f
mpimy.inc:10.26:
    Included at mpi.f:83:

      PARAMETER( Nbranch=2 )                                            
                          1
Error: Unexpected characters in PARAMETER statement at (1)
mpimy.inc:28.33:
    Included at mpi.f:83:

        INTEGER,POINTER :: hid( ! mapping of ids (i.e. virtual node nu
                                 1
Error: Syntax error in data declaration at (1)
mpi.f:108.14:

      IMPLICIT NONE                                                     
              1
Error: Syntax error in IMPLICIT statement at (1)
mpi.f:124.6:

      COMM%MPI_COMM= MPI_comm_world                                    
      1
Error: Unclassifiable statement at (1)
mpi.f:126.30:

      call MPI_comm_rank( COMM%MPI_COMM, COMM%NODE_ME, ierror )         
                              1
Error: Syntax error in argument list at (1)
mpi.f:127.35:

      IF ( ierror /= MPI_success ) &                                    
                                   1
Error: Cannot assign to a named constant at (1)
mpi.f:129.6:

      COMM%NODE_ME= COMM%NODE_ME+1                                      
      1
Error: Unclassifiable statement at (1)
mpi.f:131.30:

      call MPI_comm_size( COMM%MPI_COMM, COMM%NCPU , ierror )           
                              1
Error: Syntax error in argument list at (1)
mpi.f:132.35:

      IF ( ierror /= MPI_success ) &                                    
                                   1
Error: Cannot assign to a named constant at (1)
mpi.f:135.6:

      COMM%IONODE = 1                                                   
      1
Error: Unclassifiable statement at (1)
mpi.f:151.20:

      TYPE(communic) COMM, COMM_INTER, COMM_INB, COMM_CART              
                    1
Error: Derived type 'communic' at (1) is being used before it is defined
mpi.f:158.22:

      IF (NPAR >= COMM%NCPU) NPAR=COMM%NCPU                             
                      1
Error: Syntax error in IF-expression at (1)
mpi.f:160.6:

      dims(2)       = COMM%NCPU/ NPAR                                   
      1
Error: Unclassifiable statement at (1)
mpi.f:161.33:

      IF (dims(1)*dims(2) /= COMM%NCPU ) THEN                           
                                 1
Error: Syntax error in IF-expression at (1)
mpi.f:162.55:

         WRITE(0,*) 'M_divide: can not subdivide ',COMM%NCPU,'nodes by',
                                                       1
Error: Syntax error in WRITE statement at (1)
mpi.f:163.9:

      ENDIF                                                            
         1
Error: Expecting END SUBROUTINE statement at (1)
mpi.f:167.32:

      CALL MPI_Cart_create( COMM%MPI_COMM , ndims, dims, periods, reorde
                                1
Error: Syntax error in argument list at (1)
mpi.f:168.16:

                COMM_CART%MPI_COMM , ierror)                           
                1
Error: Unclassifiable statement at (1)
mpi.f:169.35:

      IF ( ierror /= MPI_success ) &                                    
                                   1
Error: Cannot assign to a named constant at (1)
mpi.f:175.34:

      CALL MPI_Cart_sub( COMM_CART%MPI_COMM, remain_dims, COMM_INB%MPI_C
                                  1
Error: Syntax error in argument list at (1)
mpi.f:176.34:

      IF ( ierror /= MPI_success )&                                    
                                  1
Error: Cannot assign to a named constant at (1)
mpi.f:177.72:

         CALL M_stop_ierr('Dividepm: Error in MPI_Cart_sub (1) ', ierror
                                                                        1
Error: Syntax error in argument list at (1)
mpi.f:183.34:

      CALL MPI_Cart_sub( COMM_CART%MPI_COMM, remain_dims, COMM_INTER%MPI
                                  1
Error: Syntax error in argument list at (1)
mpi.f:184.35:

      IF ( ierror /= MPI_success ) &                                    
                                   1
Error: Cannot assign to a named constant at (1)
mpi.f:185.72:

         CALL M_stop_ierr('Dividepm: Error in MPI_Cart_sub (2) ', ierror
                                                                        1
Error: Syntax error in argument list at (1)
Fatal Error: Error count reached limit of 25.
make: *** [mpi.o] 错误 1

Originally posted by wuli8 at 2010-08-11 21:53:16:
单机版的很好搞，搜搜以前的帖子里面有Makefile，照着做就ok了