Ignore:
Timestamp:
Dec 10, 2018 7:05:46 AM (3 years ago)
Author:
raasch
Message:

unused variables removed, abort renamed inifor_abort to avoid intrinsic problem in Fortran

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/inifor/src/inifor_control.f90

    r3557 r3614  
    2626! -----------------
    2727! $Id$
     28! abort renamed inifor_abort to avoid intrinsic problem in Fortran
     29!
     30! 3557 2018-11-22 16:01:22Z eckhard
    2831! Updated documentation
    2932!
     
    7881!> You can use this routine to log events across INIFOR's code to log. For
    7982!> warnings and abort messages, you may use the dedicated routines warn() and
    80 !> abort() in this module. Both use report() and add specific behaviour to it.
     83!> inifor_abort() in this module. Both use report() and add specific behaviour
     84!> to it.
    8185!------------------------------------------------------------------------------!
    8286    SUBROUTINE report(routine, message, debug)
     
    138142! ------------
    139143!>
    140 !> abort() prepends "ERROR:" the given 'message' and prints the result to the
    141 !> terminal, writes it to the INIFOR logfile, and exits INIFOR.
     144!> inifor_abort() prepends "ERROR:" the given 'message' and prints the result to
     145!> stdout, writes it to the INIFOR logfile, and exits INIFOR.
    142146!>
    143147!> You can use this routine for messaging issues, that are critical and prevent
    144148!> INIFOR from continueing.
    145149!------------------------------------------------------------------------------!
    146     SUBROUTINE abort(routine, message)
     150    SUBROUTINE inifor_abort(routine, message)
    147151
    148152       CHARACTER(LEN=*), INTENT(IN) ::  routine !< name of calling subroutine or function
     
    152156       STOP
    153157
    154     END SUBROUTINE abort
     158    END SUBROUTINE inifor_abort
    155159
    156160
     
    218222
    219223             CASE DEFAULT
    220                 CALL abort('run_control', "Time Budget '" // TRIM(mode) // "' is not supported.")
     224                CALL inifor_abort('run_control', "Time Budget '" // TRIM(mode) // "' is not supported.")
    221225
    222226          END SELECT
     
    248252
    249253       CASE DEFAULT
    250           CALL abort('run_control', "Mode '" // TRIM(mode) // "' is not supported.")
     254          CALL inifor_abort('run_control', "Mode '" // TRIM(mode) // "' is not supported.")
    251255
    252256       END SELECT
Note: See TracChangeset for help on using the changeset viewer.