PROGRAM OUTL DIMENSION XLAT(100),XLON(100) C C VARIABLE DEFINITIONS C NPTS = TOTAL NUMBER OF POINTS IN NEXT LINE (NPTS/2 LAT-LON PAIRS). C IF NPTS < 2 THIS RECORD IS A GROUP SEPARATOR AND NO POINT C PAIRS FOLLOW. C IGID = GROUP ID FOR THESE POINTS WHERE C 1 = CONTINENTAL OUTLINES C 2 = US STATE BOUNDARIES (HIGHER RESOLUTION THAN 1) C 3 = INTERNATIONAL POLITICAL BOUNDARIES C C XLATMX,XLATMN,XLONMX,XLONMN = THE LAT-LON LIMITS FOR POINTS IN C THE FOLLOWING LINE. C C XLAT,XLON ARE THE COORDINATES OF A CONTINUOUS LINE IN THE OUTLINE C CONTAINING NPTS/2 POINTS. C C TAPE STRUCTURE C THE TAPE IS DIVIDED INTO FOUR GROUPS, SEPARATED BY LINE HEADERS C WITH POINT COUNTS LESS THAN 2. C GROUP CONTENT C 1 CONTINENTAL OUTLINES ONLY. C 2 US STATE OULINES ONLY (HIGHER RESOLUTION THAN 1). C 3 CONTINENTAL AND US STATE AND INTERNATIONAL POLITICAL C BOUNDARIES (USES 2 WHERE IT OVERLAPS 1). C 4 CONTINENTAL AND INTERNATIONAL POLITICAL BOUNDARIES. NGRP=0 C OPEN(1,FILE='data',STATUS='OLD') 5 NLINE=0 NGRP=NGRP+1 C READ LINE HEADER 10 READ (1,1001,END=90)NPTS,IGID,XLATMX,XLATMN,XLONMX,XLONMN 1001 FORMAT(2I8,4F8.3) IF(NPTS.LT.2) GO TO 90 NPR=(NPTS+1)/2 C READ LINE READ(1,1002,END=90)(XLAT(I),XLON(I),I=1,NPR) 1002 FORMAT(10F8.3) NLINE=NLINE+1 IF(NLINE.GT.10) GO TO 10 PRINT 1003,NPTS,IGID,XLATMX,XLATMN,XLONMX,XLONMN,XLAT(1), 2 XLON(1),XLAT(NPR),XLON(NPR) 1003 FORMAT(' LINE ',I5,I3,8F9.3) GO TO 10 90 CONTINUE PRINT 1004,NGRP,NLINE 1004 FORMAT(' END OF GROUP ',I2,' LINES =',I6) IF(NLINE.GT.0) GO TO 5 END