f2matlab: ztest1(vect1, vect2) - File Exchange

Code covered by the BSD License

Highlights from
f2matlab

TESTING_csf.m
TESTING_ex.m
[argStr,status]=getarg(n,argS... replicates getarg in fortran
[changedflag,funstr,argDelin]... declare_globals
[changedflag,funstr]=fixNotOp... 'ssssssssssss',funstr{i},kb
[filestr,numErrors,extraFunct... f2matlab(filename)
[filestr,numErrors,extraFunct... f2matlab(filename)
[fn_val,xvalue]=alngam(xvalue...
[funstr,fortranfunwords,outfl... This will change the Matlab function to its Fortran equivalent syntax.
[funstr,funstrwords,funstrwor...
[funstr,funstrwords,funstrwor...
[groups,topCommas]=getTopGrou... 'dddddddddddd11',str,keyboard
[howmany,s1,centercomma,paren... if strcmp(funstrwords{i}{whichword},'character')
[linOut,wordOut]=findNextWord... '9999999999999',out,funstr{linenum},keyboard
[localVar,originalLocaVar]=ad... localVar
[localVar,thisLV]=insertLocal... inserts a localVar
[m,n,x,pm,pd]=lpmns(m,n,x,pm,...
[m,n,x,qm,qd]=lqmns(m,n,x,qm,...
[out,howmany,subscripts,cente... for j=1:howmany
[out,outLine,j]=varType(i,j,f... 'ccccccccc',kb
[out,outbefore,outafter]=getT... 'ttttt1',temp,keyboard
[out,typeDefs]=buildTypeDefLi... this doesn't handle non-1 indexing (see varp)
[out,whichWord]=getLocalVarTy...
[out]=output_acceptable(i,whi... make sure the first thing in the subsscript is a word
[outflag,howmany,subscripts,c... this doesn't parse matlab correctly because of the transpose single quote.
[outflag,howmany,subscripts,c... This is to find the components [var1,var2,etc]
[outflag,howmany,subscripts,c...
[outflag,whichword,whichsub,h... 'fgfgfggggggggg',kb
[pm,pd]=lpmns(m,n,x,outsize)
[s,fs_good]=updatefunstr_1lin...
[strOut,groups]=fixDataGroups... '00000000000',groups,kb
[sublist,funstr,funstrnumbers... if linenum is empty, then find sublist for the entire funstr
[x1,x2,x,w,n]=dgauleg(x1,x2,x...
[xi,eta,phi,m,n,lambda,h0,an,...
bayes
casePML=caseProtectedML these are the function in general, elmat, and elfun under toolbox matlab
casePML=getCaseProtectedML these are the function in general, elmat, and elfun under toolbox matlab
dd(varargin) common tsterr,same;
dispback(str) DISPBACK - Displays a string then backspaces to the beginning of the string.
f2mWarning(str,funstr,nLine,l...
femprb(varargin)
funstr=fixMultiStatementLines... find top level semicolons with something after them and divide the line
funstr=replaceword(i,j,funstr...
funwords=getfunwordsonly
funwords=getfunwordsonlyML
implicit=implicitParse(implic... can't do implicit for types yet
implicit=implicitRules
isInteger(i,range,funstr,funs... what words and numbers are on the same level as loc?
localVar=remLocalVar(localVar... removes a localVar unless protected
main(varargin)
main(varargin)
mcpbdn(varargin) From the book 'Computation of Special Functions.'
out=aftercomment(funstr,row,c...
out=breakOffFirstFormat(in) either a string is first, or a number is first
out=empt0(in) converts empty to 0, otherwise leaves
out=findNext(loc,str,funstr,d... returns -1 if can't find what you ask
out=findend_f(linenum,s,funst... '9999999999999',out,funstr{linenum},keyboard
out=findlefts_f(locs,str)
out=findrights_f(locs,str,ign...
out=getExtraFunctions(extraFu...
out=getVarSpecs(varName,local...
out=inaDQstring_f(str,loc) temp2=inastring_f(str,ftemp);
out=inastring2_f(str,loc)
out=inastring_f(str,loc) this doesn't parse matlab correctly because of the transpose single quote.
out=incomment(str,locs)
out=iskeep_f(str)
out=isnameletter(str)
out=isnumber(str)
out=lastNonSpace(str,locs) finds the last non space location before loc(s)
out=maxloc(x,dim) function out=maxloc(x,dim)
out=nextNonSpace(str,locs) finds the next non space location after loc(s)
out=strrel(in1,in2,relop) function out=strrel(in1,in2,relop)
out=validSpot(str,loc)
out=varInUsedMods(word,modLoc...
out=writef(fid,varargin) function out=writef(fid,varargin)
out=zeroVarDec(funstr,i,temp2... if ischar(localVar{temp6,2})
showall(funstr,indented)
str=fix_concats(str,loc,funst... Find entity (string delimitied with ' ', variable, or bracketed expression.
stroud_prb(varargin)
varargout=readf(fid,fmtStr,n) function varargout=readf(fid,varargin), Catches string fid's
ztest
ztest1(vect1, vect2)
zztest
zztest(varargin) compile with intel fortran
addGetArg.m
addreadf.m
addwritef.m
assignSwitches.m
convertWrite.m
fixEndType.m
fixLabeledDoLoops.m
fixScalarCalls.m
keepSomeCases.m
module_adj.m
protectSomeStrings.m
setUpLocalVar.m
takeCareOfIncludeFiles.m
takeCareOfIncludeFiles2.m
takeCareOfTypes.m
w.m
zz_clean.m
zz_convert.m
View all files

from f2matlab by Ben Barrowes
Converts basic fortran90 source code to MATLAB source code.

ztest1(vect1, vect2)
function ans = ztest1(vect1, vect2) for i=1:length(vect1) ans(i) = vect1(i) + vect2(i); end

Highlights from f2matlab

Highlights from
f2matlab