imp_dsolv.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	imp_dsolv (graphe, k_diag, k_lt, iadk, jdik, nddl, nb, b, x, itab, iprint, nddli7, iadi7, jdii7, i7_diag, i7_lt, i7tok)
subroutine	imp_dsolv_iter (graphe, k_diag, k_lt, iadk, jdik, nddl, nb, b, x, itab, it, fac_k, ipiv_k, nk, iprint, nddli7, iadi7, jdii7, i7_diag, i7_lt, i7tok)

Function/Subroutine Documentation

imp_dsolv()

subroutine imp_dsolv	(	type(prgraph), dimension(*)	graphe,
			k_diag,
			k_lt,
		integer, dimension(*)	iadk,
		integer, dimension(*)	jdik,
		integer	nddl,
		integer	nb,
			b,
			x,
		integer, dimension(*)	itab,
		integer	iprint,
		integer	nddli7,
		integer, dimension(*)	iadi7,
		integer, dimension(*)	jdii7,
			i7_diag,
			i7_lt,
		integer, dimension(*)	i7tok )

Definition at line 33 of file imp_dsolv.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE dsgraph_mod
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 IADK(*), JDIK(*), NDDL, NB, ITAB(*), IPRINT, NDDLI7, 
     .        IADI7(*), JDII7(*), I7TOK(*)
      my_real
     .        k_diag(*), k_lt(*), b(nb,*), x(nb,*),
     .        i7_diag(*), i7_lt(*)
      TYPE(PRGRAPH) :: GRAPHE(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER IOPT, IBID, NDDLG, IPRI, IWKLI, LTITR1, NDDLC
      my_real
     .        rbid
      CHARACTER TITRE*80
C
      write(6,*) "ERROR: DSOLVE is deprecated"  
      CALL arret(5)
C
      RETURN

imp_dsolv_iter()

subroutine imp_dsolv_iter	(	type(prgraph), dimension(*)	graphe,
			k_diag,
			k_lt,
		integer, dimension(*)	iadk,
		integer, dimension(*)	jdik,
		integer	nddl,
		integer	nb,
			b,
			x,
		integer, dimension(*)	itab,
		integer	it,
			fac_k,
		integer, dimension(*)	ipiv_k,
		integer	nk,
		integer	iprint,
		integer	nddli7,
		integer, dimension(*)	iadi7,
		integer, dimension(*)	jdii7,
			i7_diag,
			i7_lt,
		integer, dimension(*)	i7tok )

Definition at line 77 of file imp_dsolv.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE dsgraph_mod
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 IADK(*), JDIK(*), NDDL, NB, ITAB(*), IT, IPIV_K(*), NK,
     .        IPRINT, NDDLI7, IADI7(*), JDII7(*), I7TOK(*)
      my_real
     .        k_diag(*), k_lt(*), b(nb,*), x(nb,*), fac_k(*),
     .        i7_diag(*), i7_lt(*)
      TYPE(PRGRAPH) :: GRAPHE(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER IOPT, NDDLG, IPRI, IBID, IWKLI, LTITR1, NDDLC, NR
      my_real
     .        rbid
      CHARACTER TITRE*80
      write(6,*) "ERROR: DSOLVE is deprecated"  
      CALL arret(5)
 
      RETURN