==============================================================--
 
                 factorial calculation
 
 ==============================================================--
 
subroutine fact(n,fact_n)
 
COMMONS: 
common-initi.f
 
SUBROUTINES USED:
 
micromap-index
Mon Jul 17 08:57:45 CEST 2017