The structure of sep_rite is similar to that of sep_reed.
| Parameter | Type | Description |
| tag | character(len=*) | The ttag of history file. |
| data | sep_type | The location to read in the data. |
| Parameter | Type | Default - Description |
| nin | integer (array if | size of data to write out defaults to the entier |
| data dim >1) | data-set unless fin and/or jin are specified. | |
| fin | integer (array if | First index of data to write out, defaults to 0. |
| data dim >1) | ||
| jin | integer (array if | skip factor of data to write out, defaults to 1. |
| data dim >1) | ||
| nout | integer array | Defaults according to fin,jin, and nin. |
| fout | integer array | Where to begin writing out. |
| jout | integer array | Skip factor when writing out. |
| writedata | logical | Whether or not to write trace info (defaults |
| according to whether traces have been allocated). | ||
| writehead | logical | Whether or not to write trace info (defaults |
| according to whether headers have been allocated). | ||
| writegrid | logical | Whether or not to write grid, default to true |
| unless pad = true. | ||
| pad | logical | Whether or not to write out zero traces and/or |
| headers. Defaults to .false. |
An irregular dataset can be written out into a regular SEP77 type file, replacing holes with zeros by
sep_rite(tag,data2d,pad=.true.,writehead=.false.)
A 2-D slice from a sep_3d structure can be written out with:
sep_rite(tag,data2d,fin=/0,0,3/)