REDUCE Subroutine

subroutine REDUCE(NMBR, IFMX, IFI, IEXP)

Arguments

Type IntentOptional Attributes Name
integer :: NMBR

@# KKRtags: VORONOI @# KKRmerge: integer factorization is performed here

 THIS ROUTINE REDUCES A POSITIVE INTEGER   INPUT NUMBER 'NMBR'
 TO A PRODUCT  OF  FIRST  NUMBERS 'IFI' , AT POWERS  'IEXP'.

 .. SCALAR ARGUMENTS ..
integer :: IFMX

@# KKRtags: VORONOI @# KKRmerge: integer factorization is performed here

 THIS ROUTINE REDUCES A POSITIVE INTEGER   INPUT NUMBER 'NMBR'
 TO A PRODUCT  OF  FIRST  NUMBERS 'IFI' , AT POWERS  'IEXP'.

 .. SCALAR ARGUMENTS ..
integer :: IFI(1)
integer :: IEXP(1)