960327: NCCRE returns negative file id?

Ned,

>Date: Tue, 26 Mar 1996 10:30:51 -0800 (PST) 
>From: address@hidden (Ned Patton)
>Organization: UC Davis
>Subject: Re: 960326: NCCRE returns negative file id? 
>Keywords: 199603252357.AA09753

In the above message you wrote:

> Yes, I am very sure that my problem is occurring.  The problem is that
> I am getting this error while running on the Cray Y-MP at NCAR
> (shavano), and do not have all the build information that you asked
> for.  But it is running UNICOS 8.something.  I did go look at the 
> dates on the include files and they look like they are a bit old.

I couldn't duplicate your problem on Shavano.  I had to slightly modify
your code because some of the variables weren't declared.  Would you
please try to replicate your problem using my steps.  Let me know what
you find.

--------
Steve Emmerson   <address@hidden>

--------Begin log of attempt

shavano$ cat nccre-test.F
      subroutine yzt_cdf_init
c
c ----------------- subroutine to initialize the netcdf file for a 
c                       y-z slice of timeseries data
c
      include 'par.f'
      include '/usr/local/include/netcdf.inc'
c
      character text*15,num*2
c
c ------------ set up filename 
c
      netcdf_file = 1
      case = 'ad'
      write(num,'(i2.2)') netcdf_file
      text = 'yzt.'//case//'.'//num//'.cdf'
c
c ------------ enter define mode
c
      ncidy = nccre(text,ncclob,rcode)
      write(*,*)
      write(*,*) 'ncidy = ',ncidy
      write(*,*) 'text  = ',text
      write(*,*) 'rcode = ',rcode

c
c ---------- leave define mode
c
      call ncendf(ncidy,rcode)
c
c ---------- end sr. yzt_cdf_init
c
      return
      end

      program nccre_test
      call yzt_cdf_init
      end
$ cat par.f
shavano$ cat par.f 
c
      parameter (nnx = 250, nnz = 32, ndims = 3)
c
      common /cdf_num/ ncidx, ncidy
      common /cdf_byt/ xbyt_tim, xbyt_cdf, netcdf_file
      common /cdf_x  / ixuid ,ixvid ,ixwid ,ixtid ,ixeid ,ixpid
      common /cdf_xdy/ ixuyid,ixvyid,ixwyid,ixtyid,ixeyid,ixpyid,
     +                 ixdims(ndims)
      common /cdf_tau/ ixt1id,  ixt2id,  ixttid,
     +                 iyt1id,  iyt2id,  iyttid,
     +                 ixt1yid, ixt2yid, ixttyid,
     +                 iyt1xid, iyt2xid, iyttxid
      common /kase/  case
      character case*2
shavano$ cf77 -o nccre-test nccre-test.F -L/usr/local/lib -lnetcdf
shavano$ rm -rf yzt.ad.01.cdf
shavano$ ./nccre-test                                             

 ncidy = 0
 text  = yzt.ad.01.cdf  
 rcode = 0.
shavano$ ./nccre-test

 ncidy = 0
 text  = yzt.ad.01.cdf  
 rcode = 0.