cerrorMsg.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cerrormsg (msg, needrtn)
subroutine	cbacktrace (a, b, c)

Function/Subroutine Documentation

cbacktrace()

subroutine cbacktrace	(	real(8), intent(out)	a,
		real(8), intent(out)	b,
		real(8), dimension(1000000), intent(out)	c
	)

Definition at line 25 of file cerrorMsg.f.

Referenced by cerrormsg(), and cgetlf().

!         This is to print back trace information
!       when some error is detected by the user
!       and the user want to see the routine names
!       before the error is detected. (compilation
!       with backtrace mode is needed)
!       the calling program should not contain
!       good "a b c". but may be better to be
!         call cbactTrace(dummy)
!
       implicit none
      real(8),intent(out)::a, b, c(1000000)
      
      c(:) =  0.
      b = 100.
      a = 100.

Here is the caller graph for this function:

cerrormsg()

subroutine cerrormsg	(	character*(*)	msg,
		integer	needrtn
	)

Definition at line 4 of file cerrorMsg.f.

References cbacktrace().

Referenced by __atmosd.f__(), __getst.f__(), __randomsel.f__(), __ranseeascii.f__(), __reanal.f__(), __seeascii.f__(), __select.f__(), __smashskel.f__(), __smashskelsmallfileno.f__(), __smashskeltrial.f__(), cbeginrun(), ccode2hvgrp(), ccode2mass(), ccoordfortr(), ccos2kf(), cdecaywel(), cexmprimeu(), cexmprimsymb(), cfixmcsmodel(), cfixmodel(), cfixtarget(), cformfullpath(), cgeomag(), cgethost(), cgetrigcut(), cgetrotmat3(), cgetskelfile(), cghvm(), cgmgigrf(), cgmgwmm(), cgpid(), chacoladhoc(), chacolx(), chanewlund(), chookbgevent(), chookbgrun(), chookenrun(), chookobs(), cifcutoff(), cifxhorizon(), cinclusive(), cinipipx(), cinippx(), cinippxn(), cinisegatmos(), cinisprimang(), cinitobs(), cinitracking(), cinitracking0(), cinteddb(), cintedmes(), cinteds(), cinteelec(), cinteheavy(), cintekaon(), cintelambdac(), cintenep(), cintennb(), cintenuc(), cinteomega(), cintephi(), cintephoton(), cintepion(), cinteraction(), cinterho(), cintetau(), cintmodels(), ciso(), citransvectzx(), ckf2cos(), cknockp(), clenbetween2h(), cmag2ecent(), cmanager(), cmbremi1(), cmkinc(), cmkprimstbl(), cmubrdedx(), cmuinte(), cmundedx(), cmuprdedx(), cmydecay(), cned2ecent(), copenf(), copenfw(), copenfw2(), cprintcoord(), cprintmagf(), cprintstatus(), cprocprimdt(), cprptc(), cpush(), cqptclden(), crdgeomag(), crdrigcut2(), crdrigcut4(), creadparam(), creadrigcut(), creadseed(), creplst(), cresetposang(), crestorestatus(), crigcut(), crigcut0(), crigcutfmt1(), crigcutfmt2(), crigcutfmt4(), crigcutfmt5(), cs2lp(), csetcoord(), csetmagfield(), csetpos(), cshvc(), cslp(), csmass(), csmpcolina2(), csprimang(), cssubc(), ctracking(), ctranscoord2(), ctransmagto(), ctransvectzx(), cvh2den(), cvh2denp(), cvh2thick(), cvthick2h(), cwhatjob(), cxpxsec(), cxyz2ned(), distribute(), drawgeomag(), issuemsg(), kcsplcoef(), kscsplcoef(), outtrace(), showparam(), sortbyerg(), testprim(), and xbgrun().

      implicit none
#include  "Zmanagerp.h"

      external cblkmanager

      character*(*) msg !  input.  message to be printed
      integer  needrtn  !  input. 0  --> stop 9999,else control is returned
      integer klena
      real(8):: dummy

      if(klena(msg) .ge. 1) then
         write(errorout, '(a)') msg(1:klena(msg))
      endif
      if(needrtn .eq. 0)  then
#if defined (PCLinuxIFC64) || (PCLinuxIFC) || (MacIFC)
         call tracebackqq()
#endif
         call cbacktrace(dummy)
      endif

Here is the call graph for this function: