J3/03-104

Date:      16 December 2002
To:        J3
From:      Aleksandar Donev
Subject:   Corrections to 10.2.3-4
Reference: J3-007R3, J3/02-313r3, J3/02-230r2

______________________________________
Summary
______________________________________
Some corrections to the examples in C.10.2.3-4 (in addition to the
corrections for C_LOC and C_F_POINTER) were suggested by Richard
and John and myself and are given as edits here. See J3/02-313r3.
______________________________________
Edits
______________________________________

_____________
474:2
Replace
"real numbers, not supported"
with
"real numbers, which may be unsupported"
______________
474: 31 Replace with new syntax for deferred bindings after this is
decided. Possibly:
PROCEDURE, DEFERRED, PASS(STREAM) :: NEXT=>RANDOM_UNIFORM
_____________
475:12 Replace
"URNG"
with
"uniform random number generator"
______________
Make RANDOM_UNIFORM a subroutine to be consistent with RANDOM_NUMBER:

474: 37 Replace with:
SUBROUTINE RANDOM_UNIFORM(STREAM, NUMBER)
475: 3 Replace with:
REAL(C_DOUBLE), INTENT(OUT) :: NUMBER
475: 4 Replace:
END SUBROUTINE RANDOM_UNIFORM
476: 4 Replace
CALL STATE%STREAM%NEXT(NUMBER)