Документ взят из кэша поисковой машины. Адрес
оригинального документа
: http://www.atnf.csiro.au/computing/software/gipsy/gds/iroutines.html
Дата изменения: Unknown Дата индексирования: Fri Jan 16 22:27:44 2009 Кодировка: Поисковые слова: п п п п |
Before the first call, 0 should be assigned to this identifier. When upon return the identifier has a value < 0, an error has occurred. A number > 0 means that the transfer has not been completed with this call and that further calls are necessary. These further calls must be made using the unmodified transfer identifier.
When the value is 0, the transfer has been completed successfully. With the help of this identifier, it is possible to handle subsets which contain more data than there is room for in your read/write buffer.
N Reset transfer id for input data TIDI = 0 N Reset transfer id for output data TIDO = 0 N Start of read/write loop REPEAT N Read input data CALL GDSI_READ( SET, CWLO, CWUP, BUFFER, MAXBUF, NREAD, TIDI ) N Scale data FOR N = 1, NREAD BUFFER(N) = 2.0 * BUFFER(N) CFOR N Write output data CALL GDSI_WRITE( SET, CWLO, CWUP, BUFFER, NREAD, NREAD, TIDO ) N Stop if TIDI again zero UNTIL (TIDI .EQ. 0)