lbfgs_jpl_version/lsopt.2/outstore.F

      subroutine outstore( n, fc, gnorm0, m, jmin, jmax, sflag, tflag, ifunc, tact )
c
c         arguments
c
      integer n, m, jmin, jmax, ifunc
      double precision    fc, gnorm0, tact
      logical sflag, tflag
c----
c
      common /xxstore/ itape, ntape, isize
      integer itape, ntape, isize

      if (myid .eq. 0 ) then 
      open(  itape
     $     , file   = 'OPWARMI'
     $     , access = 'sequential'
     $     , form   = 'formatted'  )
      rewind (itape)

      write( itape, * ) n, fc, gnorm0, m, jmin, jmax, sflag, tflag, ifunc, tact

      close(itape)
      endif

      close(ntape)

      return
      end
1	heimbach	1.1	subroutine outstore( n, fc, gnorm0, m, jmin, jmax, sflag, tflag, ifunc, tact )
2			c
3			c arguments
4			c
5			integer n, m, jmin, jmax, ifunc
6			double precision fc, gnorm0, tact
7			logical sflag, tflag
8			c----
9			c
10			common /xxstore/ itape, ntape, isize
11			integer itape, ntape, isize
12
13			if (myid .eq. 0 ) then
14			open( itape
15			$ , file = 'OPWARMI'
16			$ , access = 'sequential'
17			$ , form = 'formatted' )
18			rewind (itape)
19
20			write( itape, * ) n, fc, gnorm0, m, jmin, jmax, sflag, tflag, ifunc, tact
21
22			close(itape)
23			endif
24
25			close(ntape)
26
27			return
28			end