C123456
       character*120 header
       integer yr(792),mo(792)
       real date(792),co2(792),dsco2(792)

!--- ファイルを開く ---!
       open(10,file="MaunaloaCO2monthly.csv")

!--- ヘッダー（最初の1行)を読む ---!
       read(10,100) header
       write(*,100) header
100    format(a120)

!--- 数値データを読む ＆　ターミナルに出力する---!
       do k=1,792
        read(10,*) yr(k),mo(k),date(k),co2(k),dsco2(k)
        write(*,*) yr(k),mo(k),date(k),co2(k),dsco2(k)
       enddo


!--- 数値データをファイルに出力する ---!
       open(20,file="CO2.txt")
       do k=1,792
        write(20,*) date(k),dsco2(k)
       enddo        

!--- ファイルを閉じる ---!
       close(10)
       close(20)
    
       stop
       end