Go to the documentation of this file.
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)
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);\