---

Manual Reference Pages  - intrinsics (3m_overload)

---

NAME

rename_intrinsics(3f) - [M_overload::INTRINSICS] rename intrinsic functions (LICENSE:PD)

CONTENTS

Synopsis
Description
Examples
Author
License

SYNOPSIS

use M_overload, only : LOCAL_NAME=>INTRINSIC_NAME

DESCRIPTION

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 statment.

EXAMPLES

Sample usage:

   program rename_intrinsics
   ! rename intrinsics

   ! 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

Results:

     > Hello
     >  /home/urbanjs/venus/V600
     >   0.540302277      0.841470957       1.55740774

AUTHOR

John S. Urban

LICENSE

Public Domain

---

Nemo Release 3.1

intrinsics (3m_overload)

July 24, 2024

Generated by manServer 1.08 from 504fd85a-b324-4059-9a46-33da8ca3edbf using man macros.