program readncdf
!
! ifort -I/home/tgcm/intel/netcdf-4.1.1/include -L/home/tgcm/intel/netcdf-4.1.1/lib -lnetcdf readncdf.F
!
!     use netcdf
      implicit none
!     include "netcdf.inc"
#include "netcdf.inc"
      character(len=80) :: ncfile
      integer :: istat,ncid

      ncfile = 'file.nc'
      istat = nf_open(ncfile,NF_NOWRITE,ncid)
!     istat = nf90_open(ncfile,NF90_NOWRITE,ncid)
      write(6,"('Opened file ',a,' istat=',i3,' ncid=',i3)")
     |  ncfile,istat,ncid

      end program readncdf