GLOBAL Module

  1. reg.f90
  2. GLOBAL

Uses

    • assert
  • module~~global~~UsesGraph module~global GLOBAL assert assert module~global->assert

Used by

  • module~~global~~UsedByGraph module~global GLOBAL module~stackops stackops module~stackops->module~global module~funcs funcs module~stackops->module~funcs proc~isrational ISRATIONAL proc~isrational->module~global module~hyper hyper module~hyper->module~global proc~switch_rat_to_real SWITCH_RAT_TO_REAL proc~switch_rat_to_real->module~global proc~iscomplex ISCOMPLEX proc~iscomplex->module~global proc~isreal ISREAL proc~isreal->module~global proc~linreg LINREG proc~linreg->module~global proc~clinreg CLINREG proc~clinreg->module~global proc~rlinreg RLINREG proc~rlinreg->module~global module~evals evals module~evals->module~global module~evals->module~stackops module~evals->module~funcs program~rpn RPN program~rpn->module~global program~rpn->module~stackops program~rpn->module~evals program~rpn->module~funcs proc~cgamma CGAMMA proc~cgamma->module~hyper module~funcs->module~hyper

Contents

Variables

Subroutines


Variables

TypeVisibility AttributesNameInitial
character(len=*), public, parameter:: VERSION ='1.1.7'
integer, public :: STACK_SIZE
integer, public, parameter:: REG_SIZE =10
real(kind=wp), public, allocatable:: STACK(:)
real(kind=wp), public, DIMENSION (0:REG_SIZE-1):: REG
complex(kind=wp), public, allocatable:: CSTACK(:)
complex(kind=wp), public, DIMENSION (0:REG_SIZE-1):: CREG
integer, public, allocatable:: RNSTACK(:)
integer, public, allocatable:: RDSTACK(:)
integer, public, DIMENSION (0:REG_SIZE-1):: RNREG
integer, public, DIMENSION (0:REG_SIZE-1):: RDREG
real(kind=wp), public :: LASTX
complex(kind=wp), public :: CLASTX
integer, public :: RNLASTX
integer, public :: RDLASTX
real(kind=wp), public :: NN
real(kind=wp), public :: SUMX
real(kind=wp), public :: SUMX2
real(kind=wp), public :: SUMY
real(kind=wp), public :: SUMY2
real(kind=wp), public :: SUMXY
complex(kind=wp), public :: CNN
complex(kind=wp), public :: CSUMX
complex(kind=wp), public :: CSUMX2
complex(kind=wp), public :: CSUMY
complex(kind=wp), public :: CSUMY2
complex(kind=wp), public :: CSUMXY
integer, public :: RNNN
integer, public :: RNSUMX
integer, public :: RNSUMX2
integer, public :: RNSUMY
integer, public :: RNSUMY2
integer, public :: RNSUMXY
integer, public :: RDNN
integer, public :: RDSUMX
integer, public :: RDSUMX2
integer, public :: RDSUMY
integer, public :: RDSUMY2
integer, public :: RDSUMXY
real(kind=wp), public :: ANGLE_FACTOR
real(kind=wp), public :: FRACTOL
integer, public :: ANGLE_MODE
integer, public :: DISP_MODE
integer, public :: DISP_DIGITS
integer, public :: BASE_MODE
integer, public :: DOMAIN_MODE
integer, public :: FRACTION_MODE
integer, public, parameter:: INITIAL_ANGLE_MODE =1
integer, public, parameter:: INITIAL_DISP_MODE =4
integer, public, parameter:: INITIAL_DISP_DIGITS =4
integer, public, parameter:: INITIAL_DOMAIN_MODE =1
integer, public, parameter:: INITIAL_BASE_MODE =10
integer, public, parameter:: INITIAL_FRACTION_MODE =1
real(kind=wp), public, parameter:: INITIAL_FRACTOL =1.0D-4

Subroutines

public subroutine init_stack()

Arguments

None