HOWTO: Use IFort Traceback Error Message for Own Purposes

While using the IFort compilers, you may get at failure a listing of routines (and lines) where the code came from until it crashed. The following shows an example:

Image              PC        Routine            Line        Source             
...                ...       ...                   .......  ... 
main.x             080C9CCA  collisionterm_mp_         811  collisionTerm.f90
main.x             080C44DB  collisionterm_mp_         410  collisionTerm.f90
main.x             0804A69D  gibuu_.run_              1101  main.f90
main.x             08048839  MAIN__                    154  main.f90

It is possible to use the same machinery for your own programmer purposes:

Insert at the beginning of your module:

    USE IFCORE

and at the position, where you want to get the error message:

    call TraceBackQQ

It is also possible, to emit an error message just as a warning and return to the calling routines.

See also: Ifort documentation, TraceBackQQ