arange Function

public function arange(start, num, iend) result(array)

Arguments

Type IntentOptional Attributes Name
integer :: start
integer :: num
logical, optional :: iend

Return Value integer, (num)


Source Code

  function arange(start,num,iend) result(array)
    integer          :: start,array(num)
    integer          :: num,i
    logical,optional :: iend
    logical          :: endpoint_
    if(num<0)stop "arange: N<0, abort."
    endpoint_=.true.;if(present(iend))endpoint_=iend
    if(endpoint_)then
       forall(i=1:num)array(i)=start+i-1
    else
       forall(i=1:num-1)array(i)=start+i-1
    end if
  end function arange