C
C-------------------------------------------------------------CONERG_S_TERM---
C
C SUBRUTINA CONVERG_S_TERM
C
C CONVERGENCIA DEL PROBLEMA ELASTICO
C
SUBROUTINE CONVERG_S_TERM(NSOL,PRBS,SOLS,MATS,CNTS,ELTS,
@ NODS,PINTS,ZCTOS,NPGS,CONV,NODSR,FIN,PS)
C
IMPLICIT NONE
C
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C VARIABLES EXTERNAS
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C PRBS : Variables globales del problema
RECORD /S_problema/ PRBS
C SOLS : Solidos del problema
RECORD /S_solido/ SOLS(N_MAX_SOL)
C MATS : Materiales
RECORD /S_material/ MATS(N_MAX_SOL)
C CNTS : Contornos del problema
RECORD /S_contorno/ CNTS(N_MAX_CNT)
C ELTS : Elementos del problema
RECORD /S_elemento/ ELTS(N_MAX_ELT)
C NODS,NODSR : Nodos del problema
RECORD /S_nodo/ NODS(N_MAX_NOD)
RECORD /S_nodo/ NODSR(N_MAX_NOD)
C PINTS : Puntos internos del problema
RECORD /S_pntint/ PINTS(N_MAX_PINT)
C ZCTOS : Zonas de contacto del problema
RECORD /S_zncto/ ZCTOS(N_MAX_ZCTO)
C NPGS : Numero de puntos de Gauss
INTEGER NPGS
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C VARIABLES EXTERNAS
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C CONV,FIN,PT,NSOL : Indicadores
INTEGER CONV,FIN,PS,NSOL
C
C
CCCCCCCCCCCCCCC
C
C RUTINA
C
CCCCCCCCCCCCCCC
C
C ANALIZAMOS SI ES EL PRIMER PASO
C
SELECT CASE(PS)
C
CASE(0)
C
PS=1
C
CASE(1)
C
CALL CONV_S_TERM(NSOL,PRBS,SOLS,MATS,CNTS,ELTS,NODS,
@ PINTS,ZCTOS,NPGS,CONV,NODSR,FIN)
C
CASE DEFAULT
WRITE(F_W,01000)
WRITE(*,01000)
END SELECT
C
RETURN
C
C FORMATOS DE ESCRITURA.
C
01000 FORMAT(/,2x,'ERROR 01000 - CONVERG_S_TERM - Error Programa ')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
