c      ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c      cc                                                          ccc
c      cc      Fitting Formulae for Pair Neutrino Process          ccc
c      cc                                  (C) Naoki Itoh          ccc
c      cc                                                          ccc
c      ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c
        implicit real*8 ( a-h, o-z )
        dimension temp( 10000 ), rhom( 10000 ) ,qpai( 10000 )
c
       call init (       temp, rhom )
       call mkfit( qpai, temp, rhom )
       call outpt( qpai, temp, rhom )
c
        stop
        end