C==================================================================
C PROGRAM TO READ GRIDDED CO2 FOSSIL FUEL EMISSION DATA, 
C  GRID CELL LOCATIONS, COUNTRY NAMES AND COUNTRY IDENTIFICATION 
C  CODES  FOR THE YEARS 1950, 1960, 1970, 1980 AND 1990.
C
C WHERE: 
C  GEIAID = 1000*JGRID+IGRID
C  LAT(ITUDE) = (JGRID-91)+0.5 (DEGREES)
C  LONG(ITUDE) = (IGRID-181)+0.5 (DEGREES)
C  FF = CO2 EMISSION FROM FOSSIL FUELS 
C       (1000 METRIC TONS C / GRID CELL / YEAR)
C  UNID = UNITED NATIONS COUNTRY CODE
C  GNAME =  UNITED NATIONS COUNTRY NAME
C  IGIS = NASA-GISS COUNTRY NAME
C  IJCODE = NASA-GISS COUNTRY/PROVINCE-REGION CODE 
C  CIJNAME = NASA-GISS COUNTRY/PROVINCE-REGION NAME
C==================================================================

      REAL*8 FF,SUMFF
      CHARACTER*14 CIJNAME
      CHARACTER*42 GNAME
      CHARACTER*6 GEIAID
      INTEGER UNID, IGIS,IJCODE
      REAL LAT,LONG
      INTEGER YEAR
      CHARACTER*40 INFILE
      CHARACTER*40 OUTFILE
C
      YEAR=1990
      INFILE='GRIDALL.90'
      OUTFILE='ALLOUT.90'
C
      PRINT *,'PROCESSING YEAR: ',YEAR
      PRINT *,'INPUT FILE READ: ',INFILE
      PRINT *,'ECHO PRINT TO FILE: ',OUTFILE
C
      OPEN(10,FILE=INFILE,STATUS='OLD')
      OPEN(20,FILE=OUTFILE,STATUS='UNKNOWN')
C
      SUMFF=0.D0
      DO 10 I=1,64800
        READ(10,110)GEIAID,LAT,LONG,FF,
     &  UNID,GNAME,IGIS,IJCODE,CIJNAME
C ECHOPRINT
        WRITE(20,110)GEIAID,LAT,LONG,FF,
     &  UNID,GNAME,IGIS,IJCODE,CIJNAME
110     FORMAT(A6,2X,F6.1,2X,F6.1,2X,G12.6,2X,
     &  I3,2X,A42,2X,I6,2X,I6,2X,A14)
        SUMFF=SUMFF+FF
10    CONTINUE
      PRINT *,SUMFF
      CLOSE (UNIT=10)
      CLOSE (UNIT=20)
C
      STOP
      END
C==================================================================