rdele.F File Reference

#include "implicit_f.inc"
#include "units_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	rdele (nelof, key, irec, key0)

Function/Subroutine Documentation

rdele()

subroutine rdele	(	integer	nelof,
		character	key,
		integer	irec,
		character	key0 )

Definition at line 35 of file rdele.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE message_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 NELOF, IREC
      CHARACTER KEY*5, KEY0*5
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "units_c.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER  IV2(10), J, JJ, K, N, K3, NBC
      CHARACTER KEY2*5
C-----------------------------------------------
C
      k=0
      jj = 0
      DO 600 n=1,nelof
      READ(iusc1,rec=irec+k,fmt='(7X,A,1X,I5,31X,I10)',err=999)
     .     key2,k3,nbc
      IF(key2==key)THEN
       IF(k3==1)THEN
        CALL read10p(irec+k+1,nbc,key0//key,iv2,jj)
       ELSE
        CALL read5p(irec+k+1,nbc,key0//key,iv2,jj)
       ENDIF
      ENDIF
      k=k+nbc+1
 600  CONTINUE
      IF(jj/=0) WRITE(iin,'(10I10)')(iv2(j),j=1,jj)
      RETURN
 999  CONTINUE
      CALL ancmsg(msgid=73,anmode=aninfo,
     .            c1=key0)
      CALL arret(0)