221 |
ENDIF |
ENDIF |
222 |
#endif |
#endif |
223 |
|
|
224 |
|
#ifndef ALLOW_SRCG |
225 |
|
IF (useSRCGSolver) THEN |
226 |
|
WRITE(msgBuf,'(A,A)') |
227 |
|
& 'CONFIG_CHECK: useSRCGSolver = .TRUE., but single reduction ', |
228 |
|
& 'code is not compiled.' |
229 |
|
CALL PRINT_ERROR( msgBuf , 1) |
230 |
|
WRITE(msgBuf,'(A)') |
231 |
|
& 'CONFIG_CHECK: Re-compile with ALLOW_SRCG defined' |
232 |
|
CALL PRINT_ERROR( msgBuf , 1) |
233 |
|
STOP 'ABNORMAL END: S/R CONFIG_CHECK' |
234 |
|
ENDIF |
235 |
|
#endif /* ALLOW_SRCG */ |
236 |
|
|
237 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
238 |
|
|
239 |
C-- Check parameter consistency : |
C-- Check parameter consistency : |