回 帖 发 新 帖 刷新版面

主题:请教程序问题

      IF (id%MYID .eq. MASTER) THEN
        KEEP(84) = ICNTL(27)
        IF (KEEP(252).NE.0) THEN
          NBRHS = KEEP(253)
        ELSE
          IF (KEEP(201) .EQ. 0 .OR. KEEP(84) .GT. 0) THEN
            NBRHS = abs(KEEP(84))
          ELSE
            NBRHS = -2*KEEP(84)
          END IF
          IF (NBRHS .GT. NRHS_NONEMPTY ) NBRHS = NRHS_NONEMPTY
        ENDIF
      ENDIF
#if defined(V_T)
      CALL VTBEGIN(glob_comm_ini,IERR)
#endif
      CALL MPI_BCAST(NRHS_NONEMPTY,1,MPI_INTEGER,MASTER,
     &               id%COMM,IERR)
      CALL MPI_BCAST(NBRHS,1,MPI_INTEGER,MASTER,
     &               id%COMM,IERR)
网上下载的程序,用cvf调试的时候上面的#if和#endif出现错误,是什么原因,是否是编译器的问题!

回复列表 (共1个回复)

沙发

得打开预编译支持,不过CVF好久没用了,不确定默认情况下是否是打开的:)

我来回复

您尚未登录,请登录后再回复。点此登录或注册