rename_intrinsics(3f) - [M_overload::INTRINSICS] rename intrinsic functions (LICENSE:PD)
Synopsis
Description
Examples
Author
License
use M_overload, only : LOCAL_NAME=>INTRINSIC_NAME
In order to be able to rename intrinsics they are all loaded in
the M_overload module. That allows for them to be renamed via a USE statement.
Sample usage:
program rename_intrinsics ! rename intrinsicsResults:! shorter names use M_overload, only : cmd=>execute_command_line use M_overload, only : getenv=> get_environment_variable
! longer names use M_overload, only : cosine=>cos, sine=>sin, tangent=>tan
implicit none character(len=4096) :: home
call cmd(echo Hello)
call getenv(HOME,home) write(*,*)trim(home)
write(*,*)cosine(1.0),sine(1.0),tangent(1.0)
end program rename_intrinsics
> Hello > /home/urbanjs/venus/V600 > 0.540302277 0.841470957 1.55740774
John S. Urban
Public Domain
Nemo Release 3.1 | intrinsics (3) | February 23, 2025 |