double precision function    FC11 (TIME ,V01,V02,V03,V04, ....)
implicit none
integer ,parameter :: imax=97
real*8 :: V(imax), TIME ,V01,V02,V03,V04,V05,V06,V07 ,....
logical :: lfirst=. true.
integer :: i
if (lfirst)  then
   open  (2,status ='unknown', form='formatted')
   lfirst=. false .
end if
V(01)=V01; V(02)=V02; V(03)=V03; V(04)=V04; V(05)=V05; .....
write  (2,'("# TIME=",es12.5)') TIME
do i=1,imax
   write  (2,'(f12.6, i4, F10.4)') TIME , i, V(i)
end do
write  (2,'(x)')
end function  FC11
