Hi list,
can anyone tell me what the construction below is called? And is it f90
or f95 or some extension? My f77 book doesn't have it and I haven't found
it in the f90 texts googled so far.
FUNCTION BVP_LINSPACE(A,B,NPTS) RESULT(X)
!----------------------------------^Whats this called?
!
INTEGER :: NPTS
DOUBLE PRECISION :: A,B
DOUBLE PRECISION :: X(NPTS)
INTEGER :: K
DOUBLE PRECISION :: DELTA
NPTS = MAX(NPTS,2)
DELTA = (B - A) / (NPTS - 1)
X = (/ (A + DELTA*(K-1), K = 1,NPTS) /)
END FUNCTION BVP_LINSPACE
The code is from
http://cs.stmarys.ca/~muir/BVP_SOLVER_Files/BVP_M.f90
with comments removed.
