call sep_read (array)or
call sep_write (array)Here array can be one-, two- or three-dimensional, and belong to real or complex type. Internally, the proper number of binary bites is calculated with the Fortran-90 size function. By default, sep_read reads from SEPlib's standard input, and sep_write writes to SEPlib's standard output. To use a different file, just add an optional argument:
call sep_read (array,"velocity")or
call sep_write (array,"velocity")
If you return now to program Clip , you should be able to understand all parts of it. A brief index of functions and subroutines is enclosed at the end of the paper.