double precision function    FC12 (IDX,V00,V01,V02,V03 ,...,V08,V09)
implicit none
integer ,parameter :: imax=10
real*8 :: V(0:imax -1,0:imax -1)
real*8 :: IDX,V00, V01,V02,V03,V04,V05,V06,V07,V08,V09
logical :: lfirst=. true.
integer :: i,j,k
if (lfirst)  then
   open  (2,status ='unknown', form='formatted')
   lfirst=. false .
end if
if ( nint(IDX) < 0)  then
   write  (2,'("# TIME=",es12.5)') V00
   return
end if
j=nint (IDX)
V(j,0)=V00; V(j,1)=V01; V(j,2)=V02; V(j,3)=V03; V(j,4)=V04
V(j,5)=V05; V(j,6)=V06; V(j,7)=V07; V(j,8)=V08; V(j,9)=V09
FC12 =  sum(v(j,0:9))
if (j. eq.9) then
   do  i=0,9
       do k=0,9
          write (2,'(i4, i4, F10.4)') i,k, V(i,k)
       end do
       write (2,'(x)')
   end do
   write  (2,'(/)')
end if
end function  FC12
