C
C METODO DE LOS ELEMENTOS DE CONTORNO. PROGRAMA MULTIUSO.
C
C Autores: Enrique Graciani Diaz
C Juan Pablo Núñez Bootello
C David Múñoz Bosques
C
SUBROUTINE INICIO
USE MSFLIB
C
IMPLICIT NONE
C
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C VARIABLES DEL PROBLEMA
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C PRB : Variables globales del problema
RECORD /S_problema/ PRB
C tp,tf,nsol,ti : Variables auxiliares
INTEGER TP,TF,NSOL,TI
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C VARIABLES INTERNAS
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C Parametro de entrada
INTEGER(2) PAR,ERR
C Nombre de los ficheros
CHARACTER*50 NAME_ENT
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C LECTURA DEL NOMBRE DEL PROBLEMA DE LA LINEA DE COMANDOS
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
PAR=1
C
CALL GETARG(PAR,PRB.NAME,ERR)
C
IF(ERR.GT.40)THEN
WRITE(*,00002)
STOP
END IF
C
IF(ERR.LE.0)THEN
WRITE(*,*)
WRITE(*,*) "Nombre del problema: "
READ(*,*) PRB.NAME
END IF
C
WRITE(*,*)
WRITE(*,*) "Nombre del problema: ",PRB.NAME
WRITE(*,*)
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C LECTURA DATOS INICIALES
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C APERTURA DEL FICHERO DE ENTRADA
C
WRITE(NAME_ENT,*) TRIM(PRB.NAME),"_ENT.TXT"
WRITE(*,*) "Archivo de entrada: ",NAME_ENT
OPEN(F_E,file=name_ent,status='old')
C
C LECTURA DEL TITULO
C
READ(F_E,10) PRB.TITULO
C
C LECTURA VARIABLES PROBLEMA
C
READ(F_E,*) tp , tf , nsol , ti
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C SOLUCION DEL PROBLEMA
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
SELECT CASE(tp)
CASE(1,21,22,31,32,51,52)
CALL MAIN(TP,TF,NSOL,TI,PRB)
CASE(41)
CALL MAIN_POT(TP,TF,NSOL,TI,PRB)
CASE(61)
CALL MAIN_TERM(TP,TF,NSOL,TI,PRB)
CASE DEFAULT
WRITE(F_W,00001) TP
WRITE(*,00001) TP
STOP
END SELECT
C
C FORMATOS DE ESCRITURA
C
00001 FORMAT(/,2x,'ERROR 00001 - INICIO - Tipo de problema (',
@ i2,') erronea.')
00002 FORMAT(/,2x,'ERROR - INICIO - 02 -',/
@ ,2x,'Nombre del problema no valido.')
10 FORMAT(a200)
C
C FIN
C
END
C
C GRUPO DE ELASTICIDAD Y RESISTENCIA DE MATERIALES.
C UNIVERSIDAD DE SEVILLA
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
