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