C SEARCH - A SUBROUTINE FOR TAGFIL. SUBROUTINE SEARCH(IFOUND) C C THIS ROUTINE SEARCHES THE OLD TAGGED DIRECTORY FOR C A TAGGED ENTRY CORRESPONDING TO THE CURRENT LINE OF C IDIR (THE PIP DIRECTORY) AND RETURNS IFOUND=1 IF THE C TAG IS FOUND, IFOUND=-1 IF IT IS NOT. C C BY ROBERT WELLS AND ROBERT FEINSTEIN C MARINE BIOMEDICAL INSTITUTE C UNIVERSITY OF TEXAS MEDICAL BRANCH, C GALVESTON, TEXAS, 77550. WRITTEN 29-JULY-75. C COMMON /IODEV/ IOLD,IDIR,INEW,ITI,ITO COMMON IBL,IDOT,ICNT,JNAM(10),FILE(3) COMMON /ENTRY/ INAM(10),ICOD(24),ITAG(80) COMMON /SIZES/ NAMSIZ,ICDSZ,ITGSZ C DIMENSION ITRSH(24) IPLACE=ICNT GOTO 15 10 IF(ICNT.EQ.IPLACE) GOTO 100 15 READ(IOLD,700,END=50) (JNAM(I),I=1,NAMSIZ),(ITRSH(I),I=1,24), 1(ITAG(I),I=1,ITGSZ) ICNT=ICNT+1 DO 20 I=1,NAMSIZ IF(INAM(I).NE.JNAM(I)) GOTO 10 20 CONTINUE C ENTRY FOUND; IS TAG THERE? DO 30 I=1,ITGSZ IF(ITAG(I).NE.IBL)GOTO 40 30 CONTINUE GOTO 100 C TAG FOR ENTRY IS FOUND; RETURN... 40 IFOUND=1 RETURN C END OF IOLD REACHED; START OVER ... 50 REWIND IOLD ICNT=0 GOTO 10 C GIVE UP, NO TAGGED ENTRY FOR IT. 100 IFOUND=-1 700 FORMAT(114A1) RETURN END