主题:请教程序问题
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出现错误,是什么原因,是否是编译器的问题!
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出现错误,是什么原因,是否是编译器的问题!