QR_MUMPS
qrm_common.h
Go to the documentation of this file.
1 ! /* ##############################################################################################
2 ! **
3 ! ** Copyright 2012 CNRS, INPT
4 ! **
5 ! ** This file is part of qr_mumps.
6 ! **
7 ! ** qr_mumps is free software: you can redistribute it and/or modify
8 ! ** it under the terms of the GNU Lesser General Public License as
9 ! ** published by the Free Software Foundation, either version 3 of
10 ! ** the License, or (at your option) any later version.
11 ! **
12 ! ** qr_mumps is distributed in the hope that it will be useful,
13 ! ** but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ! ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ! ** GNU Lesser General Public License for more details.
16 ! **
17 ! ** You can find a copy of the GNU Lesser General Public License
18 ! ** in the qr_mumps/doc directory.
19 ! **
20 ! ** ##############################################################################################*/
21 !
22 !
23 ! /*##############################################################################################*/
24 !
33 ! /* ############################################################################################## */
34 
35 #define __QRM_PRNT_ERR(X) if(qrm_eunit.gt.0) write(qrm_eunit,X)
36 #define __QRM_PRNT_MSG(X) if(qrm_ounit.gt.0) write(qrm_ounit,X)
37 #define __QRM_PRNT_DBG(X) if(qrm_dunit.gt.0) write(qrm_dunit,X)
38 
39 #define __QRM_CHECK_RET(NAME,STR,GOTO) if(qrm_err_stack%nelem .gt. 0 ) then;\
40 call qrm_err_push(17,NAME,aed=STR);\
41 goto GOTO;\
42 endif
43 
44 #define trace 1