In[]:=
Clear[ffoutsuper,ndercL];​​cout0L={4.,4.,4.,4.};​​ffoutsuper[flag_,LRc_Real,cL_]:=0;​​ndercL[n_,m_,f_]:=(Derivative@@{0,1,ConstantArray[0,m]})[f];​​ndercL[1,4,ffoutsuper][1,0.1,cout0L]
Out[]=
(0,1,{0,0,0,0})
ffoutsuper
[1,0.1,{4.,4.,4.,4.}]
In[]:=
Clear[ffoutsuper,ndercL];​​cout0L={4.,4.,4.,4.};​​ffoutsuper[cL_List/;VectorQ[cL,NumberQ]]:=0;​​ndercL[n_,m_,f_]:=(Derivative@@{UnitVector[m,n]})[f];​​ndercL[1,4,ffoutsuper][cout0L]
Out[]=
({1,0,0,0})
ffoutsuper
[{4.,4.,4.,4.}]
In[]:=
Clear[ffoutsuper,ndercL];​​cout0L={4.,4.,4.,4.};​​ffoutsuper[cL_]:=0;​​ndercL[n_,m_,f_]:=(Derivative@@{UnitVector[m,n]})[f];​​ndercL[1,4,ffoutsuper][cout0L]
Out[]=
0
In[]:=
Clear[ffoutsuper,ndercL];​​cout0L={4.,4.,4.,4.};​​ffoutsuper[flag_,LRc_,cL_]:=0;​​ndercL[n_,m_,f_]:=(Derivative@@{0,1,ConstantArray[0,m]})[f];​​ndercL[1,4,ffoutsuper][1,0.1,cout0L]
Out[]=
0
In[]:=
Clear[ffoutsuper,ndercL];​​ffoutsuper[flag_,LRc_Real]:=0;​​ndercL[n_,m_,f_]:=(Derivative@@{0,1})[f];​​ndercL[1,4,ffoutsuper][1,0.1]
Out[]=
0