Name:     Read Hologram

Language: Fortran77

Source:   read_hologram.f, Makefile, read_hologram.txt

Author:   Ian Curington, Advanced Visual Systems, Inc.

Description:

    A well-commented Reader for 2D field data, in FORTRAN,
    that combines ASCII file inport in fixed FORTRAN FORMAT,
    and does numeric computation on the data before
    sending it to the output port. It allows multiplication
    of a coefficient on one particular row, defined by a
    channel dial. This is intended as a working example of
    a FORTRAN read module, to be modified by others.

Controls:

    Filename:   <browser>
    Multiplier: real
    Offset:     real
    Channel:    integer
    Chan Coeff: real

    Output Port:
       field 2D scalar real 2-space uniform


Reference:

    This is a template read module in Fortran,
    based on the standard example "test_fld2_f.f"
    It has 4 dials, controlling data transformations.

    This module performs the following operations:
    1. Reads an Input file with
       Format= 2I10 integers on first line, then
       Format= 6F12.7 for the rest of the 2D array

    2. Processes the data, by selection:
       If on "channel" row, then
       out = ( in * multiplier + offset ) * Chan_Coeff
       else all other data
       out =  in * multiplier + offset

    3. Sends the data to the AVS Output port,
       in a 2D array.

    An example of a typical input file for this module is:
        10        10
   1.0000000   2.0000000   3.0000000   4.0000000   5.0000000   6.0000000
   7.0000000   8.0000000   9.0000000  10.0000000  11.0000000  12.0000000
  13.0000000  14.0000000  15.0000000  16.0000000  17.0000000  18.0000000
  19.0000000  20.0000000  21.0000000  22.0000000  23.0000000  24.0000000
     .......
     .......

  To create a simple test file, compile and run the following small
  program, sending the output to a file.

         program t
5        format (2I10)
10       format (6f12.7)
         write(6,5)  10, 10
         write(6,10) (float(i),i=1,100)
         stop
         end