DESARROLLO DE HERRAMIENTAS - FI-UAEMex

HERRAMIENTAS DE CÓMPUTO 151
REAL IZ,IY,L,LP,K,jp,P,DAB,Mi
CHARACTER*20 INPUT,OUTPUT
c
c ******************************************************************
c IMPRESION EN PANTALLA
c
WRITE(*,*)'******************************************************'
WRITE(*,*)'* *'
WRITE(*,*)'* *'
WRITE(*,*)'* ANALISIS DE MARCOS EN 3 DIMENSIONES *'
WRITE(*,*)'* *'
WRITE(*,*)'* ( M A R 3 D ) *'
WRITE(*,*)'* *'
WRITE(*,*)'* Elaborado por: *'
WRITE(*,*)'* *'
WRITE(*,*)'* Octavio García Domínguez *'
WRITE(*,*)'* David Delgado Hernández *'
WRITE(*,*)'* Alfonso Islas Hernández *'
WRITE(*,*)'* Gonzalo Paz Mendoza *'
WRITE(*,*)'* *'
WRITE(*,*)'* *'
WRITE(*,*)'* Estructuras, DEPFI, UNAM *'
WRITE(*,*)'* *'
WRITE(*,*)'* México D.F., Diciembre de 1998 *'
WRITE(*,*)'* *'
WRITE(*,*)'* *'
WRITE(*,*)'******************************************************'
c
c ******************************************************************
c APERTURA DE ARCHIVOS
c
WRITE(*,10)
10 FORMAT(/,1X,'ARCHIVO DE DATOS: ')
READ(*,42)INPUT
42 FORMAT(A20)
WRITE(*,11)
11 FORMAT(/,1X,'ARCHIVO DE SALIDA: ')
READ(*,42)OUTPUT
WRITE(*,*)
OPEN (1,FILE=INPUT,STATUS='OLD')
OPEN (2,FILE=OUTPUT,STATUS='unknown')
c
c ******************************************************************
c IMPRESION DE ENCABEZADO EN EL ARCHIVO DE SALIDA.
c
WRITE(2,*)'******************************************************'
WRITE(2,*)'* *'
WRITE(2,*)'* *'
WRITE(2,*)'* ANALISIS DE MARCOS EN 3 DIMENSIONES *'
WRITE(2,*)'* *'
WRITE(2,*)'* ( M A R 3 D ) *'
WRITE(2,*)'* *'
WRITE(2,*)'* *'
WRITE(2,*)'******************************************************'
c
c ******************************************************************
c LECTURA DE DATOS GENERALES
c
c Variables empleadas
c
c NB = NUMERO DE BARRAS
c NU = NUMERO DE NUDOS ( con DX,DY,DZ,FIX, FIY,FIZ )
c NAP = NUMERO DE APOYOS
c NAY = NUMERO DE NUDOS DE AYUDA
c COND = CONDICIONAL
c
C LECTURA DEL NUMERO DE NUDOS Y COORDENADAS Y
C LECTURA DE FUERZAS EN LOS NUDOS FX,FY,FZ,MX,MY.MZ
READ(1,*)NB,N,AP,AY,NP,COND
DO 14 I=1,N
READ(1,*)X(I),Y(I),Z(I),
*K(6*I-5,6*N+1),K(6*I-4,6*N+1),K(6*I-3,6*N+1),
*K(6*I-2,6*N+1),K(6*I-1,6*N+1),K(6*I,6*N+1)
14 CONTINUE
DESARROLLO DE HERRAMIENTAS DE ANÁLISIS ESTRUCTURAL
PARA SU USO DESDE LA INTERNET