Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(var_t), | intent(in) | :: | self | |||
complex(kind=wp), | intent(in), | dimension(:) | :: | args |
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.
function evalZ_var(self,args) result(o)
class(var_t),intent(in)::self
complex(wp),dimension(:),intent(in)::args
complex(wp)::o
integer::N
N = size(args)
if(self%idx>N) then
write(*,*) 'Invalid argument index: '//intToChar(self%idx)
stop 'Error in eval_var'
end if
o = args(self%idx)
end function evalZ_var