C Rutina 013
C--------------------------------------------------------LEE_CONTORNO---
C
C SUBRUTINA LEE_CONTORNO
C
C LECTURA DE DATOS DEL CONTORNO
C
SUBROUTINE LEE_CONTORNO(ccnt,CNT)
C
IMPLICIT NONE
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C CCNT : Numero del contorno que se va a leer
INTEGER CCNT
C CNT : Contornos del problema
RECORD /S_contorno/ CNT
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C LECTURA VARIABLES CONTORNO
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
READ(F_E,*) CNT.NUM, CNT.TIP , CNT.NELT
C
C NUMERO DE ELEMENTOS
C
IF(CNT.NELT.LT.1.OR.CNT.NELT.GT.N_MAX_ELTCNT) THEN
WRITE(F_W,01301) ccnt , CNT.NELT
WRITE(*,01301) ccnt , CNT.NELT
STOP
END IF
C
C
C FIN DE LA RUTINA
C
RETURN
C
C FORMATOS DE ESCRITURA.
C
01301 FORMAT(/,2x,'ERROR 01301 - LEE_CONTORNO - Contorno: ',i2,'.',/,
* ' Numero de elementos (',i2,') fuera de rango permitido.')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
