Intrinsics

intrinsics

The following functions can be used in FORTRAN-77 expressions in addition to the standard FORTRAN-77 intrinsic functions or anywhere on the command line in the form $function(parameter,parameter,...) if there are parameters or in the form $function without parameters. In the alpha- betical list below, i and n denote integer expressions, and s and t denote character expressions.

function result description

---

------- ---------------------------------------------------

cputime real CPU time in seconds since the start of the program date character current date in the form dd-mm-yy def(s) logical does a variable with name s exist and have a value

                        different from NULL?

exist(s) logical does a variable with name s exist? existfile(s) logical does a file with name s exist? external(s) character value of the external (i.e. non-local) variable

                        with name s (even if it is hidden by a local 
                        variable with the same name), or a blank string if 
                        no external variable with this name exists.

external(s,t) character value of the external (i.e. non-local) variable

                        with name s (even if it is hidden by a local 
                        variable with the same name), or t if no external
                        variable with this name exists.

fitchisq real chi^2 value of the last linear least-squares fit fiterr(n) real standard deviation of the n-th fit parameter of

                        the last linear least-squares fit

fitpar(n) real optimal value of the n-th fit parameter of the

                        last linear least-squares fit

fitprob real probability that the chi^2 value of the last

                        linear least-squares fit would be exceeded by
                        chance

getenv(s) character value of Unix environment variable with name s getpid integer Unix PID of current process global(s) character value of the global with name s (even if it is

                        hidden by a local variable with the same name), 
                        or a blank string if no global variable with
                        this name exists.

global(s,t) character value of the global with name s (even if it is

                        hidden by a local variable with the same name), 
                        or t if no global variable with this name exists.

if(n,x1,x2) - argument x1 if the condition n is true, or x2

                        otherwise. The arguments x1 and x2 can have any 
                        type.

length(s) integer number of elements of the variable with name s lenstr(s) integer length of string s (without trailing blanks) macro(s) logical does a macro with name s exist in the search path? match(s,t) logical does the string s match the string t? The string t

                        may contain wildcards: an asterisk matches zero 
                        or more characters, and a question mark matches 
                        exactly one character.

mtime(s) integer time of last modification (in seconds since a

                        reference date) of the file with name s

opened(s) logical is the file with name s open? plotx0, ploty0, plotx1, ploty1 real coordinates of the two reference points in the

                        user coordinate system used for graphics

rand real random number between 0 and 1 rand(i) real random number between 0 and 1, using seed i rand(i,n) real n-th random number between 0 and 1, using seed i time character current time in the form hh:mm:ss val(s) character value of the variable with name s, or a blank

                        string if no variable with this name exists.

val(s,t) character value of thevariable with name s, or t if no

                        variable with this name exists.

walltime integer wallclock time in s since the start of the program