Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Source Code
function logspace(start,stop,num,base)result(array)real(8)::start,stop,array(num)integer::num,i! logical,optional :: iend! logical :: endpoint_real(8),optional::basereal(8)::base_real(8)::A,Bbase_=10.d0;if(present(base))base_=baseif(num<0)stop"logspace: N<0, abort."A=start;if(start==0.d0)A=1.d-12B=stop;if(stop==0.d0)B=1.d-12A=log(A)/log(base_);B=log(B)/log(base_)array=linspace(A,B,num=num,iend=.true.)array=base_**array end function logspace