SecDec/loop/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
  sumname:specifies the internal fortran name of the sum function
  lowii: number of the first function in the sum
  highii: number of the last function in the sum
  prestring: specifies the internal fortran name of the functions being summed ($[prestring]f1,...)
  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