File indexing completed on 2018-03-02 18:36:19 UTC
view on githubraw file Latest commit 4cee17c1 on 2002-11-15 04:03:25 UTC
4cee17c1be Patr*0001 subroutine outstore( n, fc, gnorm0, m, jmin, jmax )
0002
0003
0004
0005 integer n, m, jmin, jmax
0006 double precision fc, gnorm0
0007
0008
0009 common /xxstore/ itape, ntape, isize
0010 integer itape, ntape, isize
0011
0012 open( itape
0013 $ , file = 'OPWARMI'
0014 $ , access = 'sequential'
0015 $ , form = 'formatted' )
0016 rewind (itape)
0017
0018 write( itape, * ) n, fc, gnorm0, isize, m, jmin, jmax
0019
0020 close(itape)
0021
0022 return
0023 end