SecDec/general/perlsrc/makesum.pm [ Perl Modules ]
[ Top ] [ Perl Modules ]
NAME
makesum.pm
USAGE
is called from preparenumerics.pl via writefiles::makesum
USES
arguements parsed from preparenumerics.pl USED BY preparenumerics.pl, writefiles.pm
PURPOSE
writes the fortran files *sf*.f in the appropriate subdirectory
INPUTS
arguements: filename:name and directory of the *sf*.f to be written kk:which sum file is to be written, specifies *sf$kk.f lowii: number of the first function in the sum highii: number of the last function in the sum point: name of numerical point polestruct; polestructure being calculated variables: funlist: is the list of functions to be summed, to be written to the external declaration part of *sf*.f asslist:consists of a string of " g(#1)=[prestring]f#2(x)\n" lineflag: flag to decide whether a newline is needed in $funlist or $asslist nfun: number of functions being summed $sp: 6 space characters, useful for preparing the fortran format of *sf*.f RESULT new function *sf*.f in the appropriate subdirectory
SEE ALSO
preparenumerics.pl, writefiles.pm