aboutsummaryrefslogtreecommitdiff
path: root/orrs/src/as2bi.f
blob: 1b406a8911493a5b4f2662ea4ae806dfc5fdc946 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
      PROGRAM AS2BI
C-------------------------------------------------------
C     Converts a set of ASCII OS data files
C     into the equivalent binary OS data files.
C     The files to be converted are listed 
C     in a text file given as the argument.
C     The ASCII  files are assumed to end with "dat".
C     The binary files are assumed to end with "bin".
C-------------------------------------------------------
      PARAMETER (NMAX=257,NRX=101,NWX=91,NHX=21)
      REAL ETA(NMAX,NHX), U(NMAX,NHX), S(NMAX,NHX)
      REAL AR(NRX,NWX,NHX), AI(NRX,NWX,NHX)
      REAL RTL(NRX,NHX)
      REAL WSL(NWX,NHX)
      REAL HH(NHX)
      INTEGER N(NHX), NRP(NHX), NWP(NHX)
      CHARACTER*80 ARGP
C
      CALL GETARG(1,ARGP)
C
      CALL READOS(ARGP,1,
     &            N,NMAX,ETA,U,S,
     &            NRP,NWP,NHP,
     &            RTL,WSL,HH , AR,AI,
     &            NRX,NWX,NHX)
C
      CALL WRITOS(ARGP,0,
     &            N,NMAX,ETA,U,S,
     &            NRP,NWP,NHP,
     &            RTL,WSL,HH , AR,AI,
     &            NRX,NWX,NHX)
C
      STOP
      END