The FORTRAN program isccp_dx_read.f has been provided by the data producer as a sample program. It is up to the user to modify the program to output the data of interest. The program can be compiled with a simple f77 command line argument. A sample of the compilation output a user can expect to see follows: % f77 -o rd_pgm isccp_dx_read.f isccp_dx_read.f: MAIN: dxtabs: dxopen: dxread: BLOCK DATA: Prior to running the program, there must be an input file named fort.10 available. This file is what the program will open and read. There are several ways to create this file: a) copy one of the ISCCP DX Native data files to filename fort.10 b) rename the ISCCP DX Native data file to fort.10 c) use the unix "ln" command to create a symbolic link named fort.10 which points to the data file. We recommend the unix "ln" command for the following reasons: a) a copy of the file will require additional disk resources b) renaming data files can become confusing c) soft links can point to different directories and disk partitions A sample of the "ln" command follows: %ln -s /datadir/ISCCP/dx_910405_gmt0_nat fort.10 %ls -l fort.10 lrwxrwxrwx 1 ownername 10 Apr 22 15:57 fort.10 -> /datadir/ISCCP/dx_910405_gmt0_nat % After the program has been successfully compiled and the file fort.10 has been created, the read program can be executed. A sample of the output follows: % rd_pgm HEADER: YEAR 1991 MONTH 11 DAY 1 GMT 9 SATID 43 SATTYP 0 NCHANS 3 NITIMG 0 4 3599 334 260 877 23679 4 3599 368 317 887 23599 3 3599 394 346 907 23411 3 3599 417 373 913 23377 3 3599 440 395 924 23296 3 3599 456 412 926 23280 3 3599 472 428 933 23231 3 3599 488 443 938 23170 3 3599 503 459 945 23107 3 3599 514 473 951 23087 3 3599 528 488 936 23200 3 3599 539 498 959 23023 3 3599 551 512 942 23152 3 3599 561 522 962 22992 2 3600 574 536 953 23071 2 3600 583 546 948 23104 2 3600 593 556 951 23073 2 3600 602 565 967 22959 2 3600 611 578 968 22944 2 3600 620 588 959 23009 2 3600 630 597 961 22979 2 3600 638 606 963 22977 2 3600 646 616 966 22960 2 3600 655 625 967 22959 2 3600 663 634 954 23056 2 3600 672 643 953 23043 2 3600 680 649 970 22928 2 3600 688 658 972 22898 2 3600 696 667 977 22865 2 3600 704 676 978 22850 2 3600 710 684 975 22881 2 3600 718 693 952 23058 2 3600 725 698 983 22831 2 3600 733 707 984 22802 2 3600 738 716 983 22817 2 3600 746 725 954 23042 2 3600 754 730 988 22784 2 3600 761 738 990 22754 2 3600 767 747 952 23058 2 3600 774 752 992 22752 2 3600 782 761 993 22751 2 3600 787 769 960 23008 NDXBYT 27 0 18 71 164 163 57 98 98 2 31 35 54 0 165 189 185 191 185 0 31 29 29 255 255 255 255 255 LON LAT IPOS JPOS 365 777 340 161 1 0 0 0 0 0 0 2 2 2 3 71 4 164 307.000 5 163 306.600 6-8 57 255 255 9 0 12 2 10 98 11 2 12 31 0.124000 13 35 0.140000 14 0 3 3 0 15 0 0 16 165 307.500 17 189 317.200 18 185 920.000 19 191 318.000 20 185 920.000 21 255 -1000.000 22 0 23 255 -1000.000 24 0 0 25 31 0.124000 26 29 0.116000 0.920000 27 29 0.116000 28 255 -1000.000 29 255 -1000.000 30 255 -1000.000 31 255 -1000.000 32 255 -1000.000 CLD 0 2 3600 795 778 988 22784 2 3600 802 783 995 22721 2 3600 807 792 956 23040 2 3600 815 797 996 22706 2 3600 821 805 999 22689 2 3600 827 813 959 23023 2 3600 834 819 999 22689 2 3600 840 827 985 22815 2 3600 847 835 979 22863 2 3600 854 841 1002 22658 2 3600 859 849 959 22995 2 3600 866 854 1004 22656 2 3600 873 862 993 22737 2 3600 878 871 969 22929 2 3600 886 876 1005 22655 2 3600 893 884 975 22895 2 3600 898 892 991 22767 2 3600 906 898 1007 22625 2 3600 911 905 965 22961 2 3600 919 911 1009 22609 2 3600 928 918 1011 22579 2 3600 933 925 966 22946 2 3600 941 931 1012 22578 2 3600 949 937 1002 22672 2 3600 955 944 974 22882 2 3600 963 952 1011 22593 2 3600 971 957 1012 22578 2 3600 977 964 966 22960 2 3600 985 971 1015 22575 2 3600 993 977 1012 22592 2 3600 999 984 969 22943 2 3600 1006 991 1012 22592 2 3600 1015 997 1016 22560 2 3600 1023 1004 982 22832 2 3600 1029 1011 1002 22658 2 3600 1037 1019 1016 22560 2 3600 1046 1024 1015 22561 2 3600 1054 1032 992 22752 2 3600 1060 1039 993 22751 2 3600 1068 1047 1013 22563 2 3600 1077 1055 1014 22562 2 3600 1085 1060 1014 22576 2 3600 1094 1068 1013 22591 2 3600 1102 1075 989 22783 2 3600 1108 1083 1002 22658 2 3600 1117 1091 1016 22546 2 3600 1125 1099 1016 22560 2 3600 1134 1107 1016 22546 2 3600 1143 1116 1014 22562 2 3600 1152 1124 1015 22547 2 3600 1161 1132 1014 22576 2 3600 1173 1141 1033 22431 2 3600 1182 1149 1041 22353 2 3600 1192 1158 1016 22560 2 3600 1201 1166 1012 22578 2 3600 1214 1178 1011 22593 2 3600 1223 1187 1056 22226 2 3600 1233 1196 1013 22563 2 3600 1246 1208 1056 22240 2 3600 1255 1218 1012 22592 2 3600 1269 1230 1056 22226 3 3599 1282 1241 1054 22242 3 3599 1296 1253 1053 22271 3 3599 1310 1268 1048 22290 3 3599 1329 1284 1076 22080 3 3599 1343 1299 1061 22193 3 3599 1362 1317 1081 22033 3 3599 1381 1337 1081 22019 3 3599 1407 1358 1091 21967 3 3599 1433 1380 1101 21887 3 3599 1465 1408 1144 21536 4 3599 1542 1450 1255 19857 END OF IMAGE ON LINE 400 79824 33489 79824 33489 ICTPIX= 113313 The amount and type of output may easily be modified by changing the sample program lines 164 - 208: C*--------------------------------------------------------------------*C C* PRINT SOME VALUES *C C*--------------------------------------------------------------------*C C PRINT *,LON,LAT,IPOS,JPOS IF ( DAYNIT .EQ. 0 ) THEN IF ( MU0 .EQ. 255 ) PRINT *,'BAD',IPOS,JPOS,MU0 END IF IF ( IPOS .EQ. 340.AND. JPOS .EQ. 161) THEN PRINT *,'NDXBYT',NDXBYT,(ICHAR(DXBYT(I)),I=1,NDXBYT) PRINT *,'LON LAT IPOS JPOS',LON,LAT,IPOS,JPOS PRINT *,'1 ',NODAY,BXSHOR,LNDWTR,HITOPO,SNOICE,TIMSPA PRINT *,'2 ',ICSLOG,BXITHR PRINT *,'3 ',MUE PRINT *,'4 ',IRAD,TMPTAB(IRAD) PRINT *,'5 ',BXICSR,TMPTAB(BXICSR) PRINT *,'6-8',ARAD PRINT *,'9 ',GLINT,VCSLOG,BXVTHR PRINT *,'10 ',MU0 PRINT *,'11 ',PHI PRINT *,'12 ',VRAD,RFLTAB(VRAD) PRINT *,'13 ',BXVCSR,RFLTAB(BXVCSR) PRINT *,'14 ',DAYNIT,ITHR,VTHR,SHORE PRINT *,'15 ',IRET,ICSRET PRINT *,'16 ',ICSRAD,TMPTAB(ICSRAD) PRINT *,'17 ',ITMP,TMPTAB(ITMP) PRINT *,'18 ',IPRS,PRETAB(IPRS) PRINT *,'19 ',ICSTMP,TMPTAB(ICSTMP) PRINT *,'20 ',ICSPRS,PRETAB(ICSPRS) PRINT *,'21 ',NREF,RFLTAB(NREF) PRINT *,'22 ',NTHR PRINT *,'23 ',NCSREF,RFLTAB(NCSREF) PRINT *,'24 ',VRET,VCSRET PRINT *,'25 ',VCSRAD,RFLTAB(VCSRAD) PRINT *,'26 ',VALBTA,RFLTAB(VALBTA),TAUTAB(VALBTA) PRINT *,'27 ',VCSALB,RFLTAB(VCSALB) PRINT *,'28 ',VTMP,TMPTAB(VTMP) PRINT *,'29 ',VPRS,PRETAB(VPRS) PRINT *,'30 ',VTAUIC,TAUTAB(VTAUIC) PRINT *,'31 ',VTMPIC,TMPTAB(VTMPIC) PRINT *,'32 ',VPRSIC,PRETAB(VPRSIC) PRINT *,'CLD',CLOUD END IF C*--------------------------------------------------------------------*C C* END OF PIXEL LOOP *C C*--------------------------------------------------------------------*C