ＳＯＳ，各位大虾们，能否帮我看看这是什麽错误造成的

[qingxiamubi]

administrator@ubuntu:~/c/dl_poly_4.03/source$ make win
make LD="ifort -o" \
LDFLAGS="-O3" \
FC="ifort -c" \
FCFLAGS="-O3" \
EX=DLPOLY.Z BINROOT=../execute master
make[1]: 正在进入目录 `/home/administrator/c/dl_poly_4.03/source'
DL_POLY_4 compilation in SRL2 mode

'Use mpi' must change to 'Use mpi_module' in 'comms_module.f90'

ifort -c -O3 comms_module.f90
comms_module.f90(16): error #5120: Unterminated character constant
" for some machines
^
comms_module.f90(16): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: (
" for some machines
-------------------^
comms_module.f90(16): error #6274: This statement must not appear in the specification part of a module
" for some machines
^
comms_module.f90(19): error #6236: A specification statement cannot appear in the executable section.
Integer, Save :: wp_mpi = 0 , &
--^
comms_module.f90(23): error #6236: A specification statement cannot appear in the executable section.
Integer, Save :: ierr = 0 , &
--^
comms_module.f90(30): error #6236: A specification statement cannot appear in the executable section.
Character( Len = 6), Parameter :: datarep = 'native'
--^
comms_module.f90(34): error #6236: A specification statement cannot appear in the executable section.
Integer, Parameter :: Deport_tag = 1100, &
--^
comms_module.f90(48): error #6236: A specification statement cannot appear in the executable section.
Public :: init_comms, exit_comms, abort_comms, &
--^
comms_module.f90(51): error #6236: A specification statement cannot appear in the executable section.
Interface gcheck
--^
comms_module.f90(52): error #6236: A specification statement cannot appear in the executable section.
Module Procedure gcheck_vector
-----^
comms_module.f90(56): error #6236: A specification statement cannot appear in the executable section.
Interface gsum
--^
comms_module.f90(57): error #6236: A specification statement cannot appear in the executable section.
Module Procedure gisum_vector
-----^
comms_module.f90(58): error #6236: A specification statement cannot appear in the executable section.
Module Procedure gisum_scalar
-----^
comms_module.f90(60): error #6236: A specification statement cannot appear in the executable section.
Module Procedure grsum_matrix
-----^
comms_module.f90(61): error #6236: A specification statement cannot appear in the executable section.
Module Procedure grsum_vector
-----^
comms_module.f90(65): error #6236: A specification statement cannot appear in the executable section.
Interface gmax
--^
comms_module.f90(66): error #6236: A specification statement cannot appear in the executable section.
Module Procedure gimax_vector
-----^
comms_module.f90(67): error #6236: A specification statement cannot appear in the executable section.
Module Procedure gimax_scalar
-----^
comms_module.f90(69): error #6236: A specification statement cannot appear in the executable section.
Module Procedure grmax_vector
-----^
comms_module.f90(73): error #6236: A specification statement cannot appear in the executable section.
Interface gmin
--^
comms_module.f90(74): error #6236: A specification statement cannot appear in the executable section.
Module Procedure gimin_vector
-----^
comms_module.f90(75): error #6236: A specification statement cannot appear in the executable section.
Module Procedure gimin_scalar
-----^
comms_module.f90(77): error #6236: A specification statement cannot appear in the executable section.
Module Procedure grmin_vector
-----^
comms_module.f90(97): error #6404: This name does not have a type, and must have an explicit type. [IERR]
Call MPI_INIT(ierr)
------------------^
comms_module.f90(99): error #6404: This name does not have a type, and must have an explicit type. [DLP_COMM_WORLD]
Call MPI_COMM_DUP(MPI_COMM_WORLD,dlp_comm_world,ierr)
-------------------------------------^
comms_module.f90(102): error #6404: This name does not have a type, and must have an explicit type. [WP_MPI]
wp_mpi = MPI_REAL
-------^
comms_module.f90(113): error #6404: This name does not have a type, and must have an explicit type. [IDNODE]
Call MPI_COMM_RANK(dlp_comm_world, idnode, ierr)
---------------------------------------^
comms_module.f90(114): error #6404: This name does not have a type, and must have an explicit type. [MXNODE]
Call MPI_COMM_SIZE(dlp_comm_world, mxnode, ierr)
---------------------------------------^
comms_module.f90(150): error #6285: There is no matching specific subroutine for this generic subroutine call. [MPI_ABORT]
Call MPI_ABORT(dlp_comm_world, idnode, ierr)
---------^
comms_module.f90(204): error #6285: There is no matching specific subroutine for this generic subroutine call. [MPI_ALLREDUCE]
Call MPI_ALLREDUCE(aaa,bbb,n_s,MPI_LOGICAL,MPI_LAND,dlp_comm_world,ierr)
---------^
comms_module.f90(691): catastrophic error: Too many errors, exiting
compilation aborted for comms_module.f90 (code 1)
make[1]: *** [comms_module.o] 错误 1
make[1]:正在离开目录 `/home/administrator/c/dl_poly_4.03/source'
make: *** [win] 错误 2

[b33e]

源码有问题

[lhw828]

错误代码一大堆啊