Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.atnf.csiro.au/computing/software/gipsy/sub/irco_transpose.dc2 Дата изменения: Thu Jan 23 17:11:29 1992 Дата индексирования: Sat Jan 17 00:58:50 2009 Кодировка:

Subroutine: IRCO_TRANSPOSE

Purpose: transposes a matrix

Category WORLD COORDINATES, IRAS

File: irco.shl

Author: Do Kester

Person resp.: Do Kester

Address: guspace!do or rugfx4!do (uucp)

Use: call irco_transpose(
mats, I double precision array(3,3)
konum, I integer
connect, I/O integer array(konum,konum)
kk1, I integer
kk2 ) I integer

Description:
Checks if matrix MATS is fit for transformation from kk1 to kk2.
If not it transposes the matrix and chnages the connection matrix
accordingly

Externals:

Updates: 5 jan 1990 DK, documentation only