37 MODULE PROCEDURE soptio_b, soptio_s, soptio_l, soptio_r, soptio_d, &
43 optio_b, optio_s, optio_i, optio_l, optio_r, optio_d, optio_c, optio_log, &
44 soptio_b, soptio_s, soptio_l, soptio_r, soptio_d, soptio_c, soptio_log
51ELEMENTAL INTEGER(kind=int_b) FUNCTION optio_b(var)
52INTEGER(kind=int_b),
INTENT(in),
OPTIONAL :: var
63ELEMENTAL INTEGER(kind=int_s) FUNCTION optio_s(var)
64INTEGER(kind=int_s),
INTENT(in),
OPTIONAL :: var
75ELEMENTAL INTEGER(kind=int_l) FUNCTION optio_i(var)
76INTEGER(kind=int_l),
INTENT(in),
OPTIONAL :: var
87ELEMENTAL INTEGER(kind=int_l) FUNCTION optio_l(var)
88INTEGER(kind=int_l),
INTENT(in),
OPTIONAL :: var
99ELEMENTAL REAL FUNCTION optio_r(var)
100REAL,
INTENT(in),
OPTIONAL :: var
111ELEMENTAL DOUBLE PRECISION FUNCTION optio_d(var)
112DOUBLE PRECISION,
INTENT(in),
OPTIONAL :: var
124FUNCTION optio_c(var,len)
RESULT(char)
125CHARACTER (len=*),
INTENT(in),
OPTIONAL :: var
126INTEGER,
INTENT(in) :: len
128CHARACTER(len=len) :: char
139ELEMENTAL LOGICAL FUNCTION optio_log(var)
140LOGICAL,
INTENT(in),
OPTIONAL :: var
148END FUNCTION optio_log
155ELEMENTAL SUBROUTINE soptio_b(var,optio_b)
156INTEGER(kind=int_b),
INTENT(in),
OPTIONAL :: var
157INTEGER(kind=int_b),
INTENT(out) :: optio_b
165END SUBROUTINE soptio_b
169ELEMENTAL SUBROUTINE soptio_s(var,optio_s)
170INTEGER(kind=int_s),
INTENT(in),
OPTIONAL :: var
171INTEGER(kind=int_s),
INTENT(out) :: optio_s
179END SUBROUTINE soptio_s
183ELEMENTAL SUBROUTINE soptio_l(var,optio_l)
184INTEGER(kind=int_l),
INTENT(in),
OPTIONAL :: var
185INTEGER(kind=int_l),
INTENT(out) :: optio_l
193END SUBROUTINE soptio_l
197ELEMENTAL SUBROUTINE soptio_r(var,optio_r)
198REAL,
INTENT(in),
OPTIONAL :: var
199REAL,
INTENT(out) :: optio_r
207END SUBROUTINE soptio_r
211ELEMENTAL SUBROUTINE soptio_d(var,optio_d)
212DOUBLE PRECISION,
INTENT(in),
OPTIONAL :: var
213DOUBLE PRECISION,
INTENT(out) :: optio_d
221END SUBROUTINE soptio_d
226ELEMENTAL SUBROUTINE soptio_c(var,optio_c)
227CHARACTER (len=*),
INTENT(in),
OPTIONAL :: var
228CHARACTER (len=*),
INTENT(out) :: optio_c
236END SUBROUTINE soptio_c
240ELEMENTAL SUBROUTINE soptio_log(var,optio_log)
241LOGICAL,
INTENT(in),
OPTIONAL :: var
242LOGICAL,
INTENT(out) :: optio_log
250END SUBROUTINE soptio_log
Generic subroutine for checking OPTIONAL parameters.
Definitions of constants and functions for working with missing values.
Module for quickly interpreting the OPTIONAL parameters passed to a subprogram.