fxbsys.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	fxbsys (mt, st, n)

Function/Subroutine Documentation

fxbsys()

subroutine fxbsys	(		mt,
			st,
		integer	n )

Definition at line 30 of file fxbsys.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER N
      my_real
     .   mt(n,*), st(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,II,I1,M,K,INFO,IPIV(N)
#ifndef MYREAL8
          DOUBLE PRECISION :: MTDB(N,N)
          DOUBLE PRECISION :: STDB(N)
#endif
C
#ifdef WITHOUT_LINALG
      WRITE(6,*) "Error: Lapack needed for Flexible bodies"
      CALL flush(6)
            CALL arret(5)
#else
#ifdef MYREAL8
      CALL dgetrf(n,n,mt,n,ipiv,info)
      CALL dgetrs('N',n,1,mt,n,ipiv,st,n,info)
#else
      mtdb(1:n,1:n) = mt(1:n,1:n)
      CALL dgetrf(n,n,mtdb,n,ipiv,info)
      stdb(1:n) = st(1:n)
      CALL dgetrs('N',n,1,mtdb,n,ipiv,stdb,n,info)
      st(1:n) = stdb(1:n)
#endif
#endif
C