program main

      real tas(146,90)

      open(21,file='gfdl.2.0.run1.tas_A1.186101-200012.dat',
     & form='unformatted',status='unknown',
     & access='direct', recl=4*146*90)

      do imonth=1,1680
      read (21,rec=imonth) tas 

      write (6,*) imonth,tas(1,1),tas(72,45),tas(100,45),tas(144,90)
      write (66,*) imonth,tas(1,50),tas(2,50),tas(3,50),tas(144,50),
     &  tas(145,50), tas(146,50)
      enddo
      stop
      end