NADCON5-ng
0.0.1
NADCON5 Next Generation
Home
Project Documentation
Code Documentation
Index
File List
File Members
vecstats.f
Go to the documentation of this file.
1
c> \ingroup core
2
c> Subroutine to tell us how many thinned vectors were
3
c> used to make a grid
4
c>
5
c> \param[in] fname vector filename to read
6
c> \param[out] n number of thinned vectors
7
subroutine
vecstats
(fname,n)
8
c - Subroutine to tell us how many thinned vectors were
9
c - used to make a grid
10
character*200
fname
11
integer*4
n
12
character*80
card
13
open
(90,file=fname,status=
'old'
,form=
'formatted'
)
14
n = 0
15
1
read
(90,
'(a)'
,end=2)card
16
n = n + 1
17
goto
1
18
2
return
19
end
vecstats
subroutine vecstats(fname, n)
Subroutine to tell us how many thinned vectors were used to make a grid.
Definition:
vecstats.f:8
src
Subs
vecstats.f
Generated on Mon Nov 20 2017 16:14:46 for NADCON5-ng by
1.8.11