1) PoissonSolverMultigrid_good.f90:1677:132: 1677 | d(:,J),LEVEL%PlaneMaxDim+7,MPI_DOUBLE_PRECISION,LEVEL%SEND(I,J),MPI_ANY_TAG,LEVEL%PlaneBuffRecv(:,J),& | 1 Error: Line truncated at (1) [-Werror=line-truncation] PoissonSolverMultigrid_good.f90:1677:132: 1677 | d(:,J),LEVEL%PlaneMaxDim+7,MPI_DOUBLE_PRECISION,LEVEL%SEND(I,J),MPI_ANY_TAG,LEVEL%PlaneBuffRecv(:,J),& | 1 Error: Expected array subscript at (1) PoissonSolverMultigrid_good.f90:1678:4: 1678 | & LEVEL%PlaneMaxDim+7,MPI_DOUBLE_PRECISION,LEVEL%RECV(I,J),MPI_ANY_TAG,COMM,stat,ierr) | 1 Error: Invalid character in name at (1) PoissonSolverMultigrid_good.f90:1716:132: 是一行的代码太长， mpif90 -ffree-line-length-none PoissonSolverMultigrid_good.f90 即可 2) mpif90 -ffree-line-length-none PoissonSolverMultigrid_good.f90 出现错误： 1804 | IF(TEST.EQ.FLAG) THEN | 1 Error: Logicals at (1) must be compared with .eqv. instead of .eq. 标准Fortran所要求的-逻辑变量的相等性应通过.eqv进行测试。 IF(TEST.EQV.FLAG) THEN ip=I+1 im=I-1 按照要求修改即可。 |
说点什么...