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);\