Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer | :: | start | ||||
integer | :: | num | ||||
logical, | optional | :: | iend |
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