SUBROUTINE DIFFIR ( R, D, N )
Argument Definitions (+ indicates altered content)
DOUBLE PRECISION  +D(*),       R(*)
INTEGER            N
Description
Compute an (N x N) matrix D = I - R 
where I is an identity matrix of order N, 
and   R is an (N x N) general matrix.
Source file:diffir.f
Local Variables (+ indicates altered content)
INTEGER           +I,         +ID,        +IJ,        +J